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FOREWORD 

This  report  was  prepared  by  Gulf  General  Atomic  Incorporated,  San  Diego, 
California,  under  Contract  F29601-67-C-0014 .  The  research  was  funded  by  DASA 
under  Project  5710,  Subtask  07.017,  Program  Element  6.16.46.01H,  and  by  ARPA 
Order  313,  Program  Element  6.25.03.01R. 

Inclusive  dates  of  research  were  29  September  1966  to  27  October  1967.  The 
report  was  submitted  13  March  1968  by  the  Air  Force  Weapons  Laboratory  Project 
Officer,  Major  John  Bode  (WLRT). 

This  report  is  published  in  four  volumes:  Volume  I,  Laser  Phenomenology 
(classified  CONFIDENTIAL);  Volume  II,  Two-Dimensional  Code  Development;  Volume 
III,  The  OUTPUT  Code;  and  Volume  IV,  Material  Property  Codes.  The  first  volume 
contains  a  classified  report  on  interaction  of  laser  radiation  with  solid  targets 
and  a  brief  description  of  calculations  done  in  conjunction  with  experiments  at 
the  Air  Force  Weapons  Laboratory.  The  remaining  three  volumes  contain  reports 
of  code  development  efforts  in  the  areas  of  radiative  transfer,  hydrodynamics, 
radiative  absorption  coefficients,  and  equations  of  state. 

The  projects  described  in  this  report  are  for  the  most  part  in  an  incomplete 
state  of  development.  This  is  due  in  part  to  the  nature  of  the  existing  computer 
programs  themselves,  which  continue  in  a  state  of  development  as  long  as  they  are 
in  use,  and  in  part  to  the  time  scale  involved  in  bringing  new  programs  to  a 
state  of  capability  for  solving  real  problems. 
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W.  B.  Lindley,  L.  Norris,  J.  T.  Palmer,  L.  M.  Schalit,  J.  R.  Triplett,  and 
Mrs.  Chris  lines.  Contractor's  report  number  is  GA-7764,  Vol  II. 

The  cooperation  of  Dr.  P.  V.  Avizonis,  Major  J.  Bode,  Capt  C.  C.  David, 

Major  G.  Spillman,  and  Lt  L.  Stoessel  of  AFWL  is  gratefully  acknowledged. 

Other  documents  produced  under  this  contract  are:  GAMD-7592,  "  A  Numerical 
Scheme  for  First-Order  Compton  Scattering,”  J.  T.  Palmer,  December  13,  1966; 
GAMD-7846,  "Difference  Equations  for  Heat  Flow  in  Two  Dimensions,"  J.  R.  Triplett, 
March  2,  1967;  GAMD-7879,  "A  Modified  Characteristic  Method  for  Radiative  Trans¬ 
fer,"  J.  R.  Triplett,  March  17,  1967;  GAMD-7889,  "R  D  C  D.  A  FORTRAN  Input 
Routine,"  J.  H.  Alexander,  March  24,  1967;  GAMD-8333,  "Hydrodynamic  Equations 
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for  Multidimensional  Problems,"  J.  R.  Triplett,  October  24,  1967;  GAMD-8379, 

"A  Brief  Study  of  the  Thermodynamic  Properties  of  Several  Low  Z  Elements  at  Low 
Temperature,"  L.  M.  Schalit,  November  22,  1967. 

This  technical  report  has  been  reviewed  and  is  approved. 


Colonel,  USAF  Colonel,  USAF 

Chief,  Theoretical  Branch  Chief,  Research  Division 


iii 


AFWL-TR-67-131,  Vol  II 


ABSTRACT 

(Distribution  Limitation  Statement  No.  2) 


The  HECTIC  code  is  a  two-dimensional  Euler ian  radiative  hydrodynamics  code 
designed  for  nuclear  and  laser  phenomenology  applications  involving  primarily 
vapor-phase  materials,  with  provisions  for  heat  conduction  and  vaporization 
of  condensed  matter.  In  this  report,  a  formulation  is  presented  for  an 
improved  method  of  solving  the  hydrodynamic  equations.  Solution  of  the 
radiative  transfer  equations  by  the  long-characteristic  method  is  discussed. 


and  computer  codes  utilizing  this  approach  are  presented.  The  short- 
characteristic  method  is  also  discussed.  The  nonequilibrium  diffusion 
approximation  in  two  dimensions  is  considered,  and  a  study  of  algorithms  for 


solving  the  implicit  difference  equations  which  arise  is  reported.  Experi¬ 
mental  codes  utilizing  the  nonequilibrium  diffusion  and  short-characteristic 
methods  are  presented. 
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SECTION  I 

HYDRODYNAMIC  EQUATIONS  FOR  MULTIDIMENSIONAL  PROBLEMS 


The  formulation  of  a  computer  method  for  solving  the  equations 
governing  the  flow  of  a  compressible  viscous  fluid  is  presented  in  this 
section.  The  aims  of  the  section  are  essentially  to  summarize  and 
generalize  currently  used  methods  for  treating  multidimensional  fluid 
flow,  and  to  write  down  a  recipe  for  computer  code  development. 

The  equations  are  introduced  in  a  more  general  form  than  usual, 
namely  for  an  arbitrary  coordinate  system.  The  special  case  of  cylindrical 
coordinates  is  thjn  described,  and  finally  the  problem  is  restricted  to  the 
axially  symmetric  case.  Specific  developments  beyond  the  material  in 
references  1,  2,  and  3  include:  (1)  the  representation  of  the  viscous  stress 
components  in  cylindrical  coordinates;  (2)  the  detailed  specification  of  the 
Lax-Wendroff-Burstein  pseudoviscosity  terms  in  cylindrical  geometry; 

(3)  a  formulation  of  the  two-step  Lax-Wendroff  difference  equations  for 
cylindrical  geometry  which  differs  somewhat  from  that  given,  for  example, 
by  Bur  stein  (Ref.  3);  (4)  a  number  of  alternative  formulations  of  the 
differential  equations  which  may  prove  helpful  in  the  treatment  of  specific 
problems;  and  (5)  a  suggested  special  device  for  adjusting  the  coefficient 
of  the  pseudoviscosity  terms. 
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GLOSSARY 


A  Arbitrary  second-rank  tensor  field  (Eq.  (30));  coefficient  of  k  2 

in  Eq.  (100) 

a  Arbitrary  vector  field  (Eqs.  (28),  (29)) 

ao>ai>a2  Coefficients  of  the  expansion  of  Q  in  powers  of  J  (Eqs.  (68),  (69), 
et  seq. ) 

B  Coefficient  of  K  in  Eq.  (100) 

C  Constant  term  in  Eq.  (100) 

c  Adiabatic  sound  speed  (Eq.  (16)  et  seq.) 

D/Dt  Lagrangian  time  derivative  operator  (Eq.  (10)  et  seq.) 

E  Specific  internal  energy,  ergs/ gram  (Eq.  (4)  et  seq.) 

3 

e  Total  fluid  energy  density,  ergs/cm  (Eqs.  (3),  (4),  etseq.) 

F  Terms  whose  r -derivatives  appear  in  the  flow  equations 

(Eqs.  (39),  (40),  (47),  (48),  (88),  et  seq.),  or  terms  whose 
divergence  appears  in  the  flow  equations  (Eqs.  (55  through  (81)) 

G  Terms  whose  y-derivative s  appear  in  the  flow  equations 

(Eqs.  (34),  (42),  (47),  (48),  et  seg. ) 

g  The  metric  tensor  (or,  without  indices,  its  determinant).  Values 

for  cylindrical  coordinates  are  given  in  Eqs.  (32),  (33),  (34). 

H  Terms  (arising  from  the  use  of  non-Cartesian  coordinates)  which 

are  undifferentiated  in  the  flow  equations  (Eqs.  (39),  (43),  (47), 

(48) ,  et  seq. ) 

I  Terms  whose  9 -derivatives  appear  in  the  flow  equations  (Eqs.  (39), 

(41));  the  unit  matrix  (Eqs.  (64)  through  (82)) 
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i  A  spatial  index;  after  Eq.  (85),  the  radial  mesh  index 

J  The  Jacobian  of  F  with  respect  to  U  (Eq.  (57).  et  seq.) 

j  A  spatial  index;  after  Eq.  (86),  the  axial  mesh  index 

K  Specific  kinetic  energy,  ergs/ gram  (Eqs.  (4),  (19),  (24)) 

k  A  spatial  index 

m  A  spatial  index  (Eq.  (30));  momentum  density  (Eqs.  (56)  through 

(59),  (83),  (84));  radial  momentum  density  (Eqs.  (50)  through 
(54),  (99),  (100)) 

n  Axial  momentum  density  (Eqs.  (50)  through  (54) ,  (99),  (100)); 

time  index  (Eq.  (73),etseq.) 

P  Thermodynamic  pressure,  ergs/cm^  (Eqs.  (3),  (6),  et  seq.) 

Q  The  Lax-Wendroff  pseudoviscosity  matrix  (Eqs.  (64),  (68));  the 

Lapidus  pseudoviscosity  matrix  (Eq.  (82)) 
q  With  superscript,  total  heat  flux  component  (Eq.  (3),  etseq.) 

ql’q2’q3  EiSenvalues  °f  Q  (Eqs.  (64),  (65),  et  seq.) 
r  Radial  coordinate  ,  cm 

S  Specific  entropy  (Eq.  (13),  et  seq.  ) 

T  Temperature  (Eq.  (12),  etseq.) 

t  Time,  sec 

U  Densities  of  mass,  momentum,  and  total  energy  (Eqs.  (39),  (40), 

(47),  (48),  et  seq.) 

u  With  superscript,  the  fluid  velocity  (superscript  is  suppressed 

in  Eqs.  (64)  through  (69));  elsewhere,  without  superscript,  the 
radial  component  of  fluid  velocity  (Eq.  (37),  etseq.) 

V  Terms  involving  viscous  stress  whose  divergence  appears  in  the 

flow  equations  (Eq.  (83)) 

v  Axial  component  of  fluid  velocity  (Eq.  (37),  etseq.) 

w  Aximuthal  component  of  fluid  velocity  (Eq.  (37),  etseq.) 


3 


AFWL-TR- 67-131,  Vol  II 


x  Arbitrary  spatial  coordinate,  cm 

y  Axial  coordinate ,  cm 

a,  p  Arbitrary  unit  vector  fields  (Eqs.  (26),  (27));  spatial  indices 

(Eqs .  (83),  (84)) 

r  Derivative  of  pressure  with  respect  to  internal  energy  density 

at  constant  volume ,  dimensionless  (Eq.  (17),  etseq.);  with 
three  indices,  a  Christoffel  symbol  (Eqs.  (28)  through  (36)) 

A,V  Forward  and  backward  difference  operators 

6  Kronecker  symbol  (Eqs.  (31),  (57),  (62));  central  difference 

operator  (Eq.  (85),  etseq.) 

0  Azimuthal  coordinate,  dimensionless 

K  Coefficient  of  pseudoviscosity,  dimensionless  (Eq.  (65),  etseq.) 

M  Shear  viscosity,  gm/ (cm  sec)  (Eq.  (4),  et  seq.  ) 

Mg  Bulk  viscosity,  gm/(cm  sec)  (Eq.  (4),  etseq.) 

£  Basic  mesh  interval  (Eq.  (65),et  seq.) 

t  Viscous  stress  (Eqs.  (2),  (5),  et  seq.) 

p  Mass  density,  gm/cm 

$  Terms  involving  pseudoviscosity  whose  divergence  appears  in 

the  flow  equations  (Eqs.  (66),  (67)) 

3 

4>  Thermal  dissipation  rate,  ergs/(cm  sec)  (Eq.  (12)  et  seq.) 

3 

\\>  Viscous  dissipation  rate,  ergs/(cm  sec)  (Eqs.  (9),  (11),  et  seq.) 

DIFFERENTIAL  EQUATIONS 


The  following  equations  express  conservation  of  mass,  momentum, 
and  total  energy  for  a  viscous  fluid  in  a  Euclidean  space: 
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(pu1)  +  8  (puV  +  g^P  -  T^)  =  0 


ff  +  8j  tu^e  +  p)  -  gikrkV  +  qj]  =  0  (3 

where  p  is  mass  density,  e  is  total  energy  density,  P  is  thermodynamic 
pressure,  u  is  fluid  velocity,  q1  is  total  heat  flux,  g1J  is  the  metric,  and 
t  is  the  residual  viscous  stress.  It  is  convenient  also  to  introduce  the 
specific  internal  energy  E,  the  shear  viscosity  p,  and  the  bulk  viscosity 
^B’  *n  terms  of  which  one  writes  the  energy  relation 


e  -  p(E  +  1/ 2g  uV)  =  p(E  +  K) 


the  constitutive  relation 


Tij  =  /.(8ikuj  ,  tA'.lt 


,k  +  g  U,  k}  +  (mB  '  2/3  M)gJu 


ij  k 

U,  k 


and  the  state  equation 


P  =  P(P,  E) 


The  symbols  8  and  ,  j  are  alternative  notations  for  covariant  differentiation 
with  respect  to  the  coordinate  xJ. 

Alternative  forms  of  these  equations  are  as  follows: 


»  T5T  +  V8‘Jp  '  t1))  =  0 


DE  i  i 

P  Tjr  +  Pu.  .  -  *  +  qJ  .  =  0 

Ot  >  J  >  J 


where  D/Dt  is  the  Lagrangian  time  derivative  operator 


D  9  i 
Dt  "  0t  +  U  9j 


5 


0 
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and  the  quantity 


t  kj  i 

*  =  8ikT  u,j 


r  1  2  .2  ,  .  2  3  .2  ,  .  3  1  ,2, 

2/3  jj[u  -  u  )  +  (u  -  u  )  +  (u  -  u  )  ] 

^  ^  j  »  3  i  1 

r/  1  x  2  .2  ^  .  2  ,  3  .2  ,  .  3  ,  1  42, 

+  mL(U(  2  +  u,  +  3  +  u  2^  +  (u  !  +  u  3)  ] 


^B(U' 


j  .2 


(H) 


is  the  viscous  dissipation  rate.  With  the  int  oduction  of  specific  entropy  S 

and  temperature  T  =  (8E/8S)  ,  the  thermal  dissipation  rate  is 

P 


i  8T 
Sx1 


(12) 


The  specific  entropy  S  may  be  divided  into  reversible  and  irreversible 

parts  S  and  S.  ,  such  that 
rev  ur 


DS 

pT  — =  -qJ.  -  4, 
P  .Jt  j  y 


DS. 

_  irr 

pX__  =*  +4, 


The  total  heating  rate  is  the  sum  of  these: 


_  DS  DE  i  _  j 

DF  +  PuV*-q.j 


Let  the  adiabatic  sound  speed  be  denoted  by  c,  where 


2  8P 
C  =8p 


and  a  parameter  T  be  defined  by 


1  8P  1  8  P 

r  =  p  8E  p  "pT  8S 


Thfcn  the  rate  equation  for  P  is 


(13) 

(14) 

(15) 

(16) 

(17) 

(18) 
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Finally,  the  rate  equation  for  specific  kinetic  energy  K  is 


DK  ,  i 

TTr  +  uJP  . 
Dt  ,  j 


"  g 


ij 


l  lk 

UJT  .  =0 
,  k 


(19) 


Modified  forms  of  Eqs.  (7),  (9),  (15),  (18),  and  (19)  may  be  written  for  the 
logarithms  of  the  positive  definite  scalars  p,  E,  S,  P,  and  K,  respectively: 


■j£l°SP  +uJ.  =0  ,20) 

Wtl°S  E  +^E(P“!j  ‘  *  +q!j>  =  0  <21> 

KlogS=;Ts(* -<•!)>  <22> 

£logP+£^uJ.=£(*-qJ.)  (23) 

^logRt^^P  ..g.jUVkk)  =  0  ,24) 


The  characteristic  equations  are  the  following  combinations  of  Eqs.  (7), 
(8),  and  (18): 


DP  2  Dp 

Dt  "  C  Dt 


r(*  -  q 


j 

•  J 


a. 

1 


(g1Jp  - 


=  0 


pc 


[pi^  +  c8i]u‘  +  [m  +  c|5iglJ8j] 


P  =  CP.T 
1 


IJ 


+  r(\I'  -  qJ  .) 
J  -  J 


(25) 


(26) 

(27) 


where  a.  and  |3.  are  arbitrary  spatial  unit  vector  fields. 

In  the  remainder  of  this  report,  the  solution  of  Eqs.  (1)  through  (6) 
will  be  discussed. 
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CYLINDRICAL  COORDINATES 


The  following  formulae  of  tensor  analysis  are  needed: 
i  3  i  i  j 
'•  k  %xk  3 


(28) 


k  3  k  ,  „k  j  13/—1 

ak=_ ka  +rika  = - kN'8a 

,k  °  k  Jk  \Tg  3xk 


3x 


(29) 


Aij.  =  ~  Aij  +  rj  .a™  +  r{  .Amj  =  j-  Aij  +  r1  Amj 

’J  3xJ  mJ  mJ  ^  Sxj  mJ 


(30) 


where  g  is  the  metric  determinant  and  i®  a  Euclidean  Christoffel  symbol. 
The  following  identities  are  also  noted: 

^ 


*:jk  -  o 


(31) 


s:  =  o 

J.  k 


12  3 

For  cylindrical  coordinates,  let  x  =  r,  x  =  0,  x  =  y.  Then  \[g  =  r,  and 
the  nonvanishing  components  of  g1^  and  are 


11  33 

gll  g  =  g33  =  g  1 


g22  =  r 


22  J_ 

4 

r 


g  ~  2 


(32) 

(33) 

(34) 


r1  =  -  r 
1  22 

2  2  1 

r  =  r  =  — 

12  21  r 


(35) 

(36) 


12  3 

Let  the  velocity  components  be  denoted  by  u  =  u,  u  =  w,  u  =  v.  The 
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velocity  gradient  components  and  the  velocity  divergence  are  then 


1 

2 

Ow 

w  3  9v 

U,1 

- 

9  r 

U,1 

=  9  r 

+  —  U  =  T“ 

r  ,1  or 

1 

9u 

2 

9w 

.  u  3  9v 

U,  2 

=  9i'  rW 

U,  2 

=  ae 

r  U,  2  90 

1 

9u 

2 

9w 

3  9v 

U,  3 

9  y 

U,  3 

~  9y 

U,  3  =  9y 

k 

9u 

u  9w  9v 

U,  k 

9  r 

r  90  8y 

(37) 


The  components  of  the  residual  stress  are 


ii 


22 

T 


33 

T 


12 

T 

13 

T 

23 

T 


31 

T 


32 

T 


/ 9w  -2  3u\ 

85 ) 

/9v  9u\ 

=  aT  +  07) 

/  - 2  9 v  9w\ 

=  "(r  8e+57) 


(38) 


The  conservation  equations,  (1),  (2),  and  (3),  may  now  be  written  in  matrix 
form: 


9U  9F  91 
9t  9r  90 


9G 

+  +  H 

9y 


0 


(39) 


where 
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The  equations  then  simplify  to 


u 


u 


u 


1 

-  Ah 

3 

u 

B  v 

,  1 

8  r 

1 

=  Br 

2 

u 

1 

u 

8u 

,  2 

r 

,  3 

"  By 

3 

-  Ay 

k 

3u  u 

,  3 

~  9y 

u,  k 

=  Br  r 

8y 


(45) 


and 


11 

T 


22 


33 

T 


13 

T 


and 


(46) 


with 


BU  BF  8G 
at  Br  By 


+  H  = 


0 


p 

pu 

pu 

PU2  +  P-  T11 

u  = 

pv 

F  = 

31 

pvu  -  T 

e 

L 

,  ,  n  11.  31  ,  1 

u(e  +  P-  T  )-T  v  +  q 

pv 

pu 

13 

2  11  2  22 

puv  -  T 

A 

pu  -  T  +  r  T 

2  ,  _  33 

pV  +  P  -  T 

H  =- 
r 

31 

pvu  -  T 

/  X  D  13  i  3 

v(e  +  P-  t  )-t  u+q 

,  ,  _  11.  31  ,  1 

u(e  +  P-  t  )-t  v  +  q 

(47) 


(48) 
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From  Eqs.  ( 1 6 )  and  (17), 


8P  8P|  2  r 

3E  p  '  pF  8p  |E  ~  C  "  r  p 

Lot  m  =  pu  and  n  =  pv,  then,  from  Eq.  (4), 

2  ,  2 
e  m  +  n 

P  2p2 

Therefore, 


8P  8P  |  9P  3E 

8p  m,  n,  e  8p  E  8E  p  8p  m,  r,  e 


2  r  ?2 

=  c  -  —  (P  +  e)  +  r(u  +  v  ) 
P 


8m  |p,  n,  e 


=  -Tu 


8n  |p,  m,  e 


=  -Tv 


8e  |p,  m,  n 

JACOBIAN  AND  PSEUDOVISCOSIT  Y  MATRICES 

Let  Eqs.  (1),  (2),  and  (3),  with  viscous  stress  t1^  =  0  and  source 
q"*  =  0,  be  written  as 


^  +  FJ  =0 
8t  ,  j 


rp  i 

lr  i- 1  TmSn^  ii _ 
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The  Jacobian  matrix,  defined  as  J ^  =  0F^/9U,  is 


JJ  = 


Ki 


[m  ij  8p"1  f*  m*  j  ,  i  ij  9JP  1  f  ij  9P~| 

p2  g  8 ?  J  |_P  5kT'P  6k  g  amkJ  |_g  3e  J 

Jap  r«±P6j+n£^l  SliA 

p  3p  L  p  k  p  SmkJ  p  ^  be) 


■  ^  (e  +  P)  + 


where,  corresponding  to  Eqs.  (51)  through  (54), 


(57) 


3P  2  r  .  .  .  r  ij  2  „e  +  P,  _g..u  u 

- —  =  c  -  —  (P  +  e)+— r  g..mm-c  -  T - +  r6ij 

9P  P  2  sij  p 

P 


(58) 


8P  r  i  i 

■  -rV 


(59) 


8P 

9e 


r 


(60) 


The  matrix  for  J-5  given  in  Eq.  (57)  is  compound,  with  submatrices  (except 
in  the  corners)  for  which  i  and  k  label  rows  and  columns,  respectively. 

For  a  three-dimensional  orthogonal  coordinate  system,  the  matrices  U, 

F,  and  J  may  be  expanded  as  follows: 
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-uWJff  uJ  +  fi  -  D  5J(u1  uV2-rg,Jg22u2  u^-rg1^3  g’-'r 

jJ  =  +  g2j  3?  u2,Jl  -  r82j8llu'  uJ  +  <*  -  f)5J2u2  u2«J,  -  rg2Jg  u3  g2Jr 


3  j  3j  3P 
-u  u  +  g  J - — 
8  3p 


•  rg3jgllul  -  rg3jg  U2  uj  +  (1  -  D.v'u3  g3Jr 


iJ(e+P)  +  uJ|£  ^.i-«irgllu*  ^2-uVg22U2  ^£«J3  -  ujrg33u3  -W.J 


The  eigenvalues  of  JJ  are  uJ,  uJ,  uJ,  uJ  +  J,  and  J  -  c^,  where  = 
Then 

au  i 

-TT  +  JJu  .  =  0 
°t  ,  j 


rsprcsents  a  further  alternative  formulation  for  source-freei  nonviscous 
systems.  The  linearized  hydrodynamic  equations  result  when  is  taken 
to  be  constant. 

The  Lax-Wendroff  pseudoviscosity  matrix,  developed  for  the  one¬ 
dimensional  case  (Ref.  1),  is  a  quadratic  function  of  J  constructed  so  that 
the  eigencolumns  of  J  corresponding  to  the  eigenvalues  u,  u  +  c,  and  u  -  c 

are  also  eigencolumns  of  Q  corresponding  to  the  eigenvalues  q  ,  q  ,  and 

12 

q^»  respectively: 


where  I  is  the  unit  matrix.  Directional  indices  are  understood  for  Q,  q,  J, 
u,  and  c  i  as  in  Eq.  (64),  but  need  not  be  shown  in  a  one -dimensional  formula. 
The  eigenvalues  q^,  q^,  and  q^  are  chosen  as  positive- definite  expressions 
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q2  =  Kle  h  (u  +  c)l  (65) 

g 

q3  =  ~dx  (U  '  C,l 

where  €  is  a  coefficient  with  the  dimensions  of  x  (later  to  be  identified  with 
a  basic  mesh  interval)  and  <  ~1  is  an  arbitrary  numerical  coefficient. 
Equation  (55)  is  then  modified  to  read 


where 


F 

i  x 


(66) 


®  =  l/2Q|Ux  (67) 

is  to  be  treated  like  a  scalar  under  covariant  differentiation.  Equation  (64) 
may  also  be  written 

Q  =  V +  V  +  V2  <68> 

where 

2  2  7 

a0  =  -  c  )  +  l/2q2u(u  -  c)  +  l/2q3u(u  +  c)]/c 

a*  =  '  l/2q2(2u  -  4  -  l/2q3(2u  +  c)]/c2  (69) 

a2  =  ^_<5l  +  1^2q2  +  1/^2<33^c2 

In  order  to  avoid  calculation  of  the  Jacobian  in  second-order  difference 
approximations  to  Eqs.  (1),  (2),  and  (3),  it  is  customary  to  employ  two- 
step  time  differencing  (Ref.  2).  In  this  case,  a  procedure  attributed  to 
Lapidus  may  be  used  to  eliminate  the  Jacobian  from  the  pseudoviscosity 
terms  as  well.  The  following  derivation  shows  one  way  in  which  this 
result  can  be  reached. 

Equations  (66),  (67),  and  (68)  yield 

9U  ,  ? 

■5t+F,x'1/28x(V+V+V  ,?U,x  (70> 
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4rr  +  F  =1/29  (a.£U  ) 

3t  ,  x  x  0*  ,  x' 


where 


F  =  F  -  1/2  (a4JgU  x  +a2JgF  x) 

A  time-difference  equation  approximating  Eq.  (71)  may  be  written 

Un+1  =  u"  -  A«  Fn^  +  l/2At£  5(a0U  x)n+i 

2 

The  pseudoviscosity  terms,  being  of  order  £  At,  need  not  be  centered. 
Thus,  from  Eq.  (72), 

Fn+i  .  Fn+"  =  (a  U  +  a  F  )“ 

1  ,x  2  ,x 

n  |  i 

Defining  a  new  quantity  U  3  such  that 

Fn+2  -  Fn  =  Jn(Un+2  -  Un) 
and  then  subtracting  Eq.  (74)  from  Eq.  (75)  yields 

Fn+i  -  F"  =  j"  [Un<i  -  u”  +  1/2|  (a“un  +  .V*  )]  | 

1  ,  x  2  ,  x 

Here,  Fn+2  =  F(Uq+2),  where  UQ  is  the  solution  of  Eq.  (55),  i.  e.  ,  the 
undamped  case.  Therefore, 

,!  9Un 

F"+I-Fn=f  j"-°  ^j"rn  ( 

co  t  2  ,  x 

From  Eqs.  (76)  and  (77),  the  difference  equation  for  Un+2  is  obtained: 

un+i/2  _  nn  _  .  i/2£  (a  Un  +  a_Fn  )  (' 

Equations  (78)  and  (73),  with  the  relation 

Fn+2  =  F(Un+^)  (1 
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form  an  explicit  time-difference  equation  system  with  Lax-Wendroff 
pseudoviscosity,  in  the  two-step  form,  for  the  one-dimensional  case. 

Unfortunately,  since  the  J  and  Q  matrices  corresponding  to  different 
directions  fail  to  commute,  the  generalization  of  the  Lax-Wendroff  pseudo¬ 
viscosity  to  two  or  more  space  dimensions  is  not  straightforward.  By 
superposition  of  the  abo  re  one- dimensional  forms  (Ref.  3),  the  system  can 
be  written  (with  sum  convention  suppressed)  as 


Un+1  =  Un  -  At  V  9-(Fj  -  l/2aJn  £jU  ,)n+*  (81) 

/  j  J  u  *  J 

j 

In  evaluating  the  covariant  derivatives  for  the  axially  symmetric  case,  it 
should  be  noted  that  a J.2*  =  ^  =  a!,2*  =  0.  Therefore,  in  this  case  the 
derivatives  within  the  pseudoviscosity  terms,  denoted  by  commas,  are 
simple  derivatives  containing  no  curvature  terms.  The  expression  a^^U, 
like  is  not  to  be  treated  as  a  vector  or  tensor  field  when  being  differ¬ 
entiated.  The  aJ  are  defined  by  Eqs.  (65)  and  (69),  with  a  directional 

P  , 

superscript  j  (not  subject  to  the  sum  convention)  applied  to  u,  c,  x,  q,  5, 
and  perhaps  ic. 

A  simplified  formulation,  attributed  (Ref.  2)  to  Lapidus,  is  obtained 
by  annulling  a^  and  a^  and  setting  a^  equal  to  q^: 


(no  sum  convention) 


(82) 


The  viscous  stress  t1^  can  be  accounted  for  in  the  definition  of  F  as 

in  Eqs.  (40)  and  (48),  or  by  introducing  on  the  right  side  of  Eqs.  (55)  and 

(63)  a  dissipative  term  .,  where 

» J 
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VJ  = 


0 

[Tij] 

«j 

*«P  T  T  . 


(83) 


The  Jacobian  =  3  /  3 U 

T 


JJ  = 


IS 


0 

[0] 

0 

[3xij/3p] 

[9T^/8mk] 

[3Tlj/3e] 

i  raj\ 

q  ij  /  q 

g 

P  \  9P 

p  / 

L  “P  •>  8mk  8“k  P  J 

gaP~  T  /9C 

(84) 

It  is  apparent  that  J1^  has  at  least  one  zero  eigenvalue,  due  to  the  absence 
of  t1J  in  Eq.  (1).  A  pseudoviscosity  of  this  form,  based  upon  a  suitable 
redefinition  of  t  \  is  thus  relatively  ineffective  for  stabilizing  Eulerian 
difference  equations  against  nonlinear  instabilities  such  as  those  investigated 
by  Burstein  (Ref.  3).  However,  the  Richtmyer-vonNeumannpseudoviscosity, 
which  is  of  this  form,  has  long  been  used  for  Lagrangian  equations,  and 
variants  have  been  successfully  used  for  Eulerian  cases,  such  as  the 
following: 


rV2.  *,<*>£. 

r 


3r 


t33  =  2„(3)^ 

3  y 


where 


v(1)  =  /cp5(1)Max 


M"s)- 


(•  -  >'”%) 


TWO-STEP  LAX-WENDROFF  DIFFERENCE  EQUATIONS  WITH 
AXIAL  SYMMETRY  " - - 

In  formulating  the  space-time  difference  equations,  it  is  convenient 
to  avoid  half-integer  indicec  by  ascribing  even  integer  indices  to  the  basic 
mesh  quantities  and  odd  indices  to  the  midpoints.  The  basic  time  difference 
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At  introduced  in  the  preceding  section  will  therefore  be  replaced  by  2At  in 

,1  3 

this  and  subsequent  sections,  and  the  space  differences  §  and  £  by 


26 r.  =  r  -  r. 
l  l+l  l-l 


26Vyj+i-yj-i 


(85) 

(86) 


respectively.  The  following  equations  are  written  for  even  values  of  the 

space -time  parity  index  i+j+n;  however,  it  will  be  noted  that  both  curvature 

and  pseudoviscosity  terms  depend  upon  odd-parity  values  of  U,  such  as 

Un  .  ..  The  definitions  of  F,  G,  and  H  given  in  Eq.  (48)  permit  elimination 

l+l,  j 

cf  tensor  notation.  For  a  uniform  rectangular  spatial  mesh, 

.  .  =  ~  (Un  .  +  un.  +  u"  ...  +  un  .  ) 

i+l,  j  4  1+2,  J  1J  l+l,  j+1  1+1,  J- 1 


(87) 


U."V  .  =  u"  .  -  1/2  +  (a'11)"  ,  .1  <f"  .  -  Fn.)  -  in\f-  +  (a<3))"  1 

i+l,  j  i+l,  j  |5ri+l  2  1+1'J|  1+2>  J  *J  [Sy.  2  i+l,  jJ 

(G*  -  G"  .  .)  -  l/2AtH"  .  -  l/2(a(.1))"  .  .  (u"  .  -  Un.) 

i+l,  j  +  1  i+l,  j-1  i+l.  J  1  i+l.  J  i+2,  j  lj 


-  l/2(a(.3))n,  .  (Un,  ...  -  u"  .  ) 

1  i+l,  j  i+l,  j+1  i+l,  j-1 


Un.+1  =  1/4  (u"+*  .  +  Un+‘  .  +  un+*  +  un+.1  ,) 

lj  1+1,  J  1-1,  J  1,  J+1  1,  J-1 


(88) 

(89) 


un+2  =  un.  -  #1  (F"+‘  .  -  Fn+‘  .)  -  (G"+1  .  cn+1  ,  .  At  Hn.+1 

ij  ij  6r.  i+l,  j  l-l,  j  5yi  1,  j+1  1,  j-1  ij 


+ 


l/2^[(a 

1 


(1)  n+1 
0  'i+l,  j 


(U 


n+1 
i+2,  j 


+  1/ 


(3)  n+i 
‘  0  \  j+1 


(U 


n+1 
i,  j+2 


-  <  w-i 


(Un+1)  -  u"+1  )] 

lj  1-  £•<  J 


(Un.+1  -  un+1  J] 

lj  1,  j-2 


(90) 


Equations  (87)  and  (89)  may  be  used  to  eliminate  odd-parity  quantities 
from  Eqs.  (88)  and  (90),  or,  alternatively,  the  four  equations  may  be  solved 
in  sequence.  In  the  latter  case,  both  even-  and  odd-parity  values  of  U  must 
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be  simultaneously  available,  but  the  amount  of  computing  required  is  reduced 
substantially.  A  third  possibility  is  to  modify  the  equations  so  that  dif¬ 
ferences  of  odd-parity  quantities,  for  example,  are  replaced  by  differences 
of  even-parity  quantities.  This  last  approach  is  more  complex  in  some  ways 
and  will  therefore  not  be  followed  in  this  report. 

A  related  problem  is  generalization  to  a  nonuniform  rectangular  mesh. 


Ar.  =  r.  ,  .  -  r.  yr.  =  r.  -  r.  =  Ar. 

1  l+l  l  i  l  l-l  l-l 


AWi‘yj  vyj  =  yj‘yj-i’Ayj-i 


Then  Eqs.  (87)  and  (89)  become,  respectively, 


u"  .  =  ( ~~ — ~ —  +  — —  +  \  (  -  1  -  un  +  — —  un. 

1+1*J  \Ari+l  vri+l  A*j  /  \Ari+l  1+2'J  ^i+l  1J 


+  — —  un 

Ay^  l+l,  j+1 


+  un  \ 

vy.  l+l. J- 1/ 


un+1  =  (-L  +  -L  +  +  _L  1  (-L  .  +  _L  u"+' 

lj  \Ar.  yr.  Ay^  vy.  J  \Ar.  l+l,  j  yr.  i-l.j 

+  un+1  +  —  un+1 , ) 

Ayj  i.j+1  yy^  i,j-i/ 


These  equations,  like  Eqs.  (87)  and  (89),  are  accurate  to  first  order  in 
the  mesh  interval. 

In  Eq.  (88),  the  quantities  H,  a^  a^  \  a^  \  and  a^  appear  with 
odd  parity.  H  may  be  most  easily  evaluated  from  the  odd-parity  U  given 
by  Eq.  (92).  From  Eqs.  (65)  and  (69),  the  a's  consist  of  differences  of 
even-parity  values  of  u,  v,  and  c,  with  odd-parity  coefficients  involving 
the  same  quantities.  These  coefficients  may  be  evaluated  as  one -directional 
weighted  means  of  the  adjacent  even-parity  quantities; 
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etc. 


{ai1)}ij+1  -  ilZ^z  (2u  -  F)  -  1  / 2q ^ J ( 2u  +  c)]/c2}.. 

where  the  bar  denotes  the  appropriate  one-directional  mean: 

-1 


n+1 


(94) 


_n+l 
u. . 

ij 


(1  +  1  \  /  1  n+1  1  n+1  \ 

Ari  yri/  \AriUi+1’j  vr.Ui-i,jj 


(95) 


.n+1 


n+1 


etc.  In  Eq.  (90),  the  odd-parity  H„  may  be  computed  from  the  U.. 
given  by  Eq.  (93),  differences  of  which  also  appear  as  coefficients  of 
even-parity  a^.  These  a^  depend  upon  even-parity  q's  which  may  be  defined 
by  differencing  "u,  v,  and  c"  as  given  by  formulae  like  Eq.  (95).  For  the 
viscous  stress  components,  contributions  to  F  and  G  are  always  of  even 
parity  and  contributions  to  H  of  odd  parity.  The  differencing,  in  this  case, 
should  always  be  based  upon  the  U  values  with  the  opposite  parity  and  the 
same  time  index. 


BOUNDARY  CONDITIONS  FOR  EXPLICIT  DIFFERENCE  EQUATIONS 

On  reflective  boundaries  (including  always  the  symmetry  axis),  the 
normal  component  of  velocity  vanishes,  while  the  tangential  component  of 
velocity  and  the  "scalars"  a^  \  a^,  a^  \  p,  e,  P,  etc.  ,  all  have  vanishing 
normal  derivatives.  On  the  axis,  the  quantity  u/ r  is  equal  to  3u/3r. 
Therefore,  the  first,  third,  and  fourth  components  of  F  and  the  second 
components  of  U,  G,  and  H  vanish  on  the  axis. 

Equations  (88),  (90),  (92),  and  (93)  explicitly  refer  to  points  which 
may  lie  outside  the  active  mesh.  Therefore,  a  single  row  of  mesh  points 
may  be  provided  outside  the  active  region  in  order  to  avoid  rewriting  these 
equations  for  boundary  points.  Values  of  quantities  assigned  to  these 
external  points  are  identical  to  those  one  mesh  spacing  within,  except  that 
for  reflective  boundaries  the  normal  component  of  velocity  is  reversed  in 
sign.  Values  of  H  are  not  required  at  the  external  points.  Other  quantities 
which  vanish  on  the  reflective  boundary  are  antisymmetric  with  respect  to 
the  boundary,  while  the  remaining  quantities  (whose  normal  derivatives 
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vanish  on  the  boundary)  are  symmetric.  Differentiation  (ordinary  or 
cova riant)  of  a  quantity  in  the  normal  direction  reverses  its  symmetry 
character  at  a  reflective  boundary. 

Boundaries  other  than  the  symmetry  axis  may  be  defined  in  various 
ways;  a  free  boundary  is  one  on  which  all  quantities  at  external  points 
vanish,  whereas  a  symmetric  transmittive  boundary  is  one  on  which  all 
quantities  have  vanishing  normal  derivatives,  and  an  extrapolative  boundary 
is  one  on  which  the  normal  second  derivatives  of  all  quantities  vanish. 

STABILITY  OF  LAX-WENDROFF  DIFFERENCE  EQUATIONS 

The  stability  of  the  linearized  Lax-Wendroff  equations  (Eq.  (63)  with 
constant  J^)  is  analyzed  in  reference  2,  where  a  sufficient  condition  for 
stability  is  found  to  be 

<IhI  +  c)^<~  (96) 

v2 

for  the  case  in  which  8y  =  6r  =  Ax.  The  analysis  is  more  complex  for  the 
case  of  a  nonuniform  rectangular  mesh,  but  the  pair  of  conditions 


\l2 

(97) 

(|v|  +  c)-j^<  — 

6y  -Jz 

(98) 

can  be  taken  as  essentially  equivalent.  The  effect  of  the  viscosity  terms  is 
very  complex,  but  Burstein  has  shown  (Ref.  3)  that  the  a2  contributions 
probably  increase  stability  slightly,  whereas  it  is  shown  in  Ref.  2  that  the 
effect  of  a  constant  a^  is  slightly  destabilizing.  The  simple  viscosity  given 
by  Eq.  (82)  is  always  stabilizing,  however,  and  the  same  is  probably  true 
of  the  complete  formulation  in  the  nonlinear  case. 

The  coefficient  K.  which  appears  in  the  pseudoviscous  terms  can  be 
modified  if  the  calculation  runs  into  difficulties  such  as  negative  internal 
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energy.  In  order  for  this  to  be  possible,  the  contribution  of  the  pseudo- 
viscous  terms  at  each  point  must  be  temporarily  saved  while  the  internal 
energy  is  calculated.  Since  each  component  of  U  is  linear  in  k,  it  is  possible 
to  write 


p  =po  + 


3  m 

m  =  rn  +  k  -- — 
0  3/c 


9n 

n  =  n  +  <  — 
0  3  K. 


3e 

e  =  e„  +  k  — 
0  3  k 


(99) 


where  the  subscript  zero  denotes  the  value  without  pseudovixcosjt) .  Then 

/  9  e  9p  dm  3  n  \ 

^P0  8k  +  C0  3k  "  m0  d<  "  n0  Jk ) 

L  3/c  3/c  \  3 k  /  \9k/  J 


,  2  2  2  2  , 
2pe  -  m  -  n  =  2pQe0  -  mQ  -  nQ  +  2/c( 


=  C  +  ZkB  +  k  A 


(100) 


The  value  of  k.  required  to  bring  the  internal  energy  to  zero  is  thus 

-  B  ±n/b2  -  AC 


(101) 


where,  assuming  that  the  pseudoviscosity  has  a  genuine  dissipative  effect, 
the  sign  can  be  chosen  so  that  k  is  positive  as  well  as  real.  A  higher 
positive  value  of  K.  will  result  in  a  positive  internal  energy;  a  difference 
approximation  to  Eq.  (21)  could  be  used  to  estimate  an  appropriate  value. 


SUMMARY  AND  CONCLUSION 

The  basic  equations  of  the  method  are  Eqs.  (88)  and  (90).  The 
former  is  solved  on  odd-numbered  time  steps,  the  latter  on  even-numbered 
time  steps.  Values  of  U,  i.e.,  the  four  conserved  densities  p,  pp,  pv,  and 
e,  are  computed  for  just  half  of  the  points  in  the  spatial  mesh  in  each  time 
step,  namely  the  points  with  indices  i,  j  in  time  step  n  such  that  the  "parity 
index"  i  +  j  +  n  is  an  even  integer.  Values  of  U  for  odd-parity  points  are 
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treated  differently;  where  needed,  they  are  computed  from  the  even-parity 
values  by  interpolation,  through  the  use  of  Eqs.  (92)  and  (93). 

The*  quantities  F,  G,  and  H  appearing  in  Eqs.  (88)  and  (90)  are 
defined  in  Eq.  (48).  They  depend  upon  the  components  of  TJ;  upon  pressure 
P,  which  depends  upon  components  of  U  (cf.  Eqs.  (6)  and  (4));  upon  viscous 
stress  t,  which  depends  upon  differences  of  components  of  U  (cf.  Eq.  (5)) 
and  upon  viscosities  n  and  p  ,  which  may  be  functions  of  sta.e  and  kinematic 
variables;  and  finally  upon  heat  flux  q,  which  must  be  independently  pre¬ 
scrib’d  but  may  also  depend  upon  state  and  kinematic  variables. 

The  pseudoviscosity  quantities  aQ,  a^,  and  appearing  in  Eqs.  (88) 
and  (90)  depend  upon  velocity  components  and  their  differences;  upon  the 
sound  speed;  and  upon  a  parameter  K ,  which  may  be  constant  or  under 
program  control.  The  definitions  are  given  in  Eqs.  (65)  and  (69).  A 
simpler  formulation  is  presented  in  Eq.  The  purpose  of  these  terms 

is  to  improve  the  stability  characteristics  of  the  difference  equations;  they 
have  no  physical  significance. 

The  entire  method  outlined  in  this  section  is  the  subject  of  current 
research  at  many  laboratories  and  is  far  from  being  a  panacea  for  all 
problems  which  arise  in  the  calculation  of  two-dimensional  llow.  However, 
development  of  this  approach,  as  an  alternative  to  the  method  employed 
in  the  OIL  family  of  codes,  is  expected  to  improve  the  treatment  of  va;  or- 
phase  flow  which  can  undergo  very  large  density  changes. 
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SECTION  II 

RADIATIVE  TRANSFER  IN  HECTIC 


INTRODUCTION 

The  immediate  objective  of  the  current  work  on  radiative  transfer  in 
two-dimensional  geometries  has  been  to  develop  numerical  methods  that 
can  be  applied  in  HECTIC.  The  first  step  is  to  find  a  way  to  solve  the 
equation 

n-vi(7,  a)  +  <r(7)  1(7  Q)  =  S(7  n)  (102) 

where  I,  S,  and  cr  are,  respectively,  intensity,  source,  and  absorption 
coefficients  as  functions  of  position  r  and  direction  Thus,  at  this  step, 
polarization,  frequency,  and  retardation  are  ignored.  The  source  S  is 
assumed  known,  so  such  problems  as  scattering  are  also  deferred. 

Descriptions  of  two  codes  that  were  partially  developed  for  solving 
Eq.  (102)  as  subroutines  of  HECTICare  given  in  reference  4.  The  first,  TDRAD, 
uses  the  nonequilibi  ium  diffusion  method  and  the  second,  LONG2,  uses  the 
method  of  long  characteristics,  x  r  current  work,  in  general  terms,  has 
been  devoted  to: 

1  .  Extending  and  refining  the  long-characteristics  code  by  allowing 
a  more  flexible  scheme  for  distributing  rays  and  by  providing  a 
means  of  treating  regions  ir.i  which  the  diffusion  approximation  is 
valid. 

2.  Surveying  methods  for  solving  the  elliptic  difference  equations 
that  arise  in  two-dimensional  versions  of  the  nonequilibrium 
diffusion  method. 

3.  Developing  a  new  method,  called  the  "view-factor"  method,  which 
avoids  the  most  serious  difficulties  encountered  in  the  other  two. 
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The  present  report  contains  detailed  descriptions  of  LONG2,  the  code  that 
uses  the  extended  method  of  characteristics,  and  SHORT2,  the  code  that 
implements  the  view-factor  method.  Work  performed  on  TDRAD  is  also 
reported.  Specifically,  descriptions  of  three  algorithms  for  solving  the 
nonequilibrium  diffusion  equations  and  the  results  of  the  tests  to  which 
they  were  put  are  presented. 

An  attempt  has  been  made  to  keep  the  report  reasonably  self- 
contained,  even  at  the  expense  of  repeating  much  information  that  can  be 
found  elsewhere. 

DEFINITIONS  AND  NOTATION 

It  is  appropriate  to  establish  at  the  outset  various  notations  and  con¬ 
ventions  used  in  the  discussion  of  the  various  routines  for  calculating 
radiative  transfer  in  HECTIC.  The  physical  systems  these  routines  are 

designed  to  handle  must  be  axially  symmetric.  Let  the  axis  of  symmetry 

2  2  A 

be  the  z-axis  of  an  x-y-z  cartesian  coordinate  system.  Let  r  =  (x  +  y  )2 
denote  the  distance  from  the  axis  of  the  point  with  coordinates  (x,  y,  z). 

The  z-axis  is  called  "vertical"  and  grad  z  is  directed  upward.  Planes  z  = 

i 

constant  are  horizontal.  As  might  be  expected,  grad  r  points  outward  and 

its  negative,  inward.  The  region  of  interest  lies  inside  a  cylinder  r  =  R 

and  between  two  planes  z  =  z  .  and  z  =  z  .  This  region  is  divided  into 

mm  max  ' 

a  number  of  subregions,  called  "zones",  by  a  set  of  cylinders  r  =  r., 

where  1  <  i  <  i  ,  and  a  set  of  planes  z  =  z.,  where  0  s  j  5  j  .  As 
max  j  max 

usual,  r.  J  <  r.  and  z.  ,  <  z.. 

l-l  i  J-1  j 

Thus,  a  zone  is  a  toroid  of  rectangular  cross  section.  The  zones  fill 

the  region  so  r-  =  R,  z_  =  z  .  ,  and  z:  =  z  .In  the  current 

xmax  0  min  Jmax  max 

FORTRAN  code  for  HECTIC,  the  zones  are  numbered  from  2  to 

IMAXfrJMAX+l,  where  JMAX  =  i  and  JMAX  =  j  .  But  in  this  part  of 
*  max  max 

the  report,  a  double  subscript  is  used  and  Z.  .  denotes  the  zone  bounded  by 
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Figure  1.  A  Typical  Zone  in  HECTIC 
the  cylinders  r  =  r  and  r  =  r.  and  the  planes  z  =  z.  and  z  =  z  .(See 

1  - 1  i  j- 1  j  ' 

Fig.  1.  )  The  surface  of  zone  Z.  .  has  four  connected  pieces,  called 

11  J 

"boundaries": 

BL.  lying  on  the  cylinder  r  =  r. 
i.J  i-1 

BR.  lying  on  the  cylinder  r  =  r 
i.J  i 

BB.  lying  on  the  plane  z  =  z. 
i.J  J-l 

BA.  lying  on  the  plane  z  =  z. 

J 

Let  z  ?-•  grad  z,  a  unit  vector  parallel  to  the  axis  in  the  system,  let 
r  =  grad  r,  a  unit  vector  orthogonal  to  z  and  directed  outward  along  a  line 
through  the  axis,  and  let  z  x  r  be  the  third  unit  vector  of  the  local  basis. 

If  Q  is  the  vector  connecting  the  origin  of  coordinates  to  the  point 


in  question,  then 


P  =  Q  +  sfl 


is  the  parametric  equation  of  a  ray  through  the  point.  The  vector  ?T  is  the 
direction  of  the  ray.  Directions  are  required  to  be  unit  vectors,  and  con¬ 
sequently  the  parameter  s  in  Eq.  (103)  is  the  distance  from  Q  to  P(s). 

With  respect  to  the  local  basis  about  the  point  P(s), 
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where 


ft  =  |j.z  -  (1  -  (j.^)  (r  cos  4>  +  r  x  z  sin  4> ) 

(Jl  =  ft  .  z 

4>  =  arctan  (  ft  •  r  x  z  /iT  •  r) 


(1C 


(1C 


p  is  called  the  "axial  projection"  of  the  ray  ai  d  <J>  is  called  its 
"azimuth"  at  the  point  P.  Since  the  direction  of  the  local  basis  vector  r 
depends  on  the  coordinates  of  P,  the  magnitude  of  the  azimuth  <}>  depends 
on  s,  as  may  be  seen  from  figure  2.  When  s  is  negative  and  large  in 
magnitude,  the  horizontal  component  of  ?T  points  almost  directly  inward 
and  $  has  a  small  positive  value.  As  s  increases,  so  does  When 
^  <  ir  / 2,  the  point  is  approaching  the  axis,  and  when  <i>  >  tt/2,  it  is 
receding  from  the  axis.  On  the  other  hand,  the  axial  projection  p  of  the 
ray  depends  only  on  its  direction  ?T  and  does  not  vary  with  s. 

The  range  -it  £  «j»  £  0  is  occupied  by  the  azimuths  of  rays  that  pass 
the  axis  moving  clockwise  as  viewed  from  above.  In  view  of  the  assumed 
axial  symmetry  of  the  physical  system,  the  variation  of  radiant  intensity 
along  such  a  ray  is  the  same  as  along  its  reflection  in  the  plane  y  =  0 
(or  any  other  plane  containing  the  axis  for  that  matter).  Consequently, 
such  rays  need  not  be  considered. 


Vi- 
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SECTION  III 

THE  LONG-CHARACTERISTIC  METHOD 


The  idea  behind  the  long -characteristic  method  is  to  calculate  radiant 
intensity  by  means  of  the  formula 


i 


<T(b  +  u£2)du 


I(b  +  s£T,  jT)  -  I(  tT.fi)  e  ° 


//  o(b+v  fi)dv 

S(b  +  ufi,fi  )  e  du 

U  (106) 

where  I(r,£2)  is  the  intensity  of  radiation  at  r  in  direction  £2,  ar(r)  is  the 
absorption  coefficient  at  r,  and  S(r,£2)  is  the  strength  of  the  source  at  r  in 
direction  £2  .  The  specification  of  the  intensity  I(b,£2)  at  a  point  b  on  the 
boundary  of  the  system  in  a  direction  £2  that  points  into  the  system  is  a 
boundary  condition.  If,  as  is  done  in  LONG2,  the  absorption  coefficients 
and  source  strengths  are  taken  to  be  constant  within  the  hydro  zones  of 
HECTIC,  the  integrals  of  Eq.  (106)  are  elementary.  The  problem  that  then 
remains  is  to  determine  the  rate  of  energy  deposition  from  a  given  distri¬ 
bution  of  intensities.  The  solution  adopted  in  the  subroutines  of  LONG2  is 
described  below. 


A  SIMPLIFIED  VERSION 

Before  the  details  of  the  long-characteristic  method  as  implemented 
in  LONG2  are  discussed,  a  simplified  version  will  be  presented.  The  first 
step  is  to  select  a  set  of  rays  that  are  distributed  through  the  physical 
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system  more  or  less  uniformly  both  in  space  d  direction.  In  the  simple 
version,  this  is  done  as  lollows.  Let  N  be  a  large  integer  and  let  d  be  a 
length  that  is  small  compared  with  the  dimensions  of  the  zones  in  the 
HECTIC  hydro  mesh.  Let 


N-n  +  2 


n 


N 


n 


■  (1  - »«> 


(107) 


for  1  s  n  s  2N.  Then  to  each  triplet  of  integers,  i  ,  m,  n  for  which 

1  «  n  «  N,  a  ray  R.  is  associated  whose  parametric  equations  are 

X,  m ,  n 


X  =  T)  S 

n 

y  =  (i  -  |)  d  (108) 


the  parameter  s  being  arc  length.  The  restriction  1  <R/d  on  1  guarantees 
that  the  ray  comes  close  enough  to  the  axis  to  pierce  the  cylinder  r  =  R. 
There  is  some  complicated  restriction  on  m  that  will  ensure  that  the  ray 
actually  does  penetrate  the  region  of  interest,  but  it  serves  no  useful  pur¬ 
pose  to  write  it  down.  The  set  of  rays  corresponding  to  a  fixed  value  of  n 
is  called  a  ’’grid.  "  The  rays  of  a  grid  are  all  parallel  ard  intersect  any 
plane  to  which  they  are  normal  in  a  square  lattice  of  points  with  a  separation 
of  d  between  nearest  neighbors.  The  set  of  rays  corresponding  to  a  fixed 
value  of  n  and  1  forms  a  comb. 

To  verify  that  the  complete  set  of  rays  is  uniform,  their  distribution 
over  some  small  element  of  volume  will  be  analyzed.  In  view  of  the  axial 
symmetry  of  the  system,  the  element  of  volume  should  be  a  figure  of 
revolution.  Let  it  be  a  toroid  of  rectangular  cross  section:  v  s  r  s  r^  +  Ar, 
z  <  z  <  z  +  Az,  where  Az  «  Az,  d  «  Az.  Consider  those  rays  whose 
directions  have  axial  projections  lying  in  the  range  +  that 
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intersect  the  volume  elemtnt  when  their  azimuths  lie  in  the  range  <f>Q  s  «j> 
s  4>q  +  A<|>,  and  calculate  the  sum  of  the  lengths  of  these  intersections.  The 
length  of  one  such  intersection  is 


t 


_ Ar _ 

1 

2  2 

( 1  -  U  )  COS  4> 

o  o 


(109) 


It  can  be  seen  from  figure  3  that  r  sin  <j>  =  y  and  hence  that  r  cos^>  A<J>  =  Ay. 

Therefore,  A  £  =  Ay/ d  =  r^  cos  4>q  A<|>/d  is  the  number  of  l  values  of  rays 

that  have  their  azimuths  in  the  desired  range  at  r  =  r^.  The  vertical 

separation  between  R.  and  ray  R.  is  d/rj  .  Therefore,  the 

number  of  m  values  of  rays  with  fixed  I  and  n  striking  the  volume  element 

is  Am  =  Az/(d/rj  )  =  tj  Al/'d.  Finally,  the  number  of  n-values  with  p  in 
n  n 

the  desired  range  is  simply  An  =  NAp.  Thus,  the  sum  T  of  the  lengths  of 
the  intersections  is 


,  2 

T  =  t  A!  Am  An  =  Ar  r^  A(j>  Az  N  A p/ d 

N  AY  Af2 
2tk32 


(110) 


where  AV  =  Zn  r^  At  Az  is  the  magnitude  of  the  volume  element  and  A 12 
=  A<|>  Ap  is  the  solid  angle  subtended  by  the  range  of  directions  being  con¬ 
sidered.  Since  the  sum  of  the  lengths  is  proportional  to  AV  A 12  and 
independent  of  r  ,  z^,  p^,  and  ,  one  may  conclude  that  the  distribution 
is  uniform  in  both  space  and  direction. 

The  rate  of  deposition  of  radiant  energy  in  a  HECTIC  hydro  zone  is 
calculated  as  the  difference  between  the  inward -going  flux  and  the  outward - 
going  flux  through  the  boundaries  of  the  zone.  The  net  inward  flux  through 
a  vertical  boundary  of  radius  r  and  altitude  ranging  from  z^  to  z^  is 


F 


Tjcos  <f>  I(r,z,f2)  2  nr  dz  dp  d$ 


(111) 
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\i  =  cos  6  ,  tj  =  sin  0 


Figure  3.  Some  Geometrical  Relationships 


where  TJ  =  (1  -  jx  )  .  The  value  of  the  integral  is  estimated  by  the 
simplest  method,  i.e.  ,  by  replacing  the  integral  with  finite  sum: 


F  “nrr^^  t) cob  <j>  I  Az  An  A4> 


where  the  sum  extends  over  all  rays  striking  the  surface.  The  vertical 
distance  between  rays  is  d/rj,  so  it  is  appropriate  to  set  tj  A  z  =  d  (see 
Fig.  3a).  Next,  referring  to  Eq.  (108)  and  figure  3b,  it  is  seen  that 
sin  <J>  -  y/r,  so  Icos  <(>  I  A<(>  =  Ay/r  =  d/r.  Finally,  Ap  =  1/N.  Thus, 

Eq.  (112)  becomes 


4  tt  d 
N 


where  the  sign  to  use  is  that  of  cos  4> :  +  for  inward-going  and  -  for  outward 
going  rays.  The  net  upward  flux  through  a  horizontal  zone  boundary  with 
inner  radius  r,  ,  outer  radius  r_,  and  altitude  z  is 
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THE  IMPLEMENTED  VERSION 


The  long-characteristic  method,  as  implemented  in  LONG2,is  a  refine¬ 
ment  of  the  simple  version  described  above.  Some  of  the  principal  changes 
are  (1)  more  flexibility  in  the  selection  of  rays,  (2)  the  inclusion  of  some 
correction  factors,  and  (3)  a  special  treatment  for  optically  thick  zones. 

One  of  the  practical  difficulties  of  the  long-characteristic  method  is 
the  large  number  of  arithmetic  operations  it  involves.  It  is  necessary  to 
calculate  the  change  of  intensity  -rong  every  line  segment  res  dting  from 
the  intersection  of  a  ray  with  a  hydro  zone.  It  is  therefore  desirable  to 
allow  the  widest  possible  latitude  in  the  distribution  of  rays  so  that  certain 
regions  may  be  sampled  more  thoroughly  than  others. 

In  the  simple  version,  a  grid  consists  of  rays  that  are  parallel  and 

intersect  any  orthogonal  plane  in  a  square  lattice  of  points.  The  first 

generalization  incorporated  into  LONG2  is  a  facility  for  having  a  higher 

density  oi  rays  in  some  regions  than  in  others.  As  before,  let  2N  be  the 

number  of  grids  and  let  n  be  the  index  of  a  grid.  For  each  n,  1<  n  <  2N, 

there  are  selected  two  increasing  sequences  (y  and  (z*  )  ^ 

..  .  ,  £,nf  =  l  m.nWf 

With  this  n  and  every  pair  l.m  of  integers  is  associated  a  ray  R 

,  .  £,m,n 

whose  parametric  equations  are 


x  =  n  s 

n 

z  =  1/2  (z_  .  +  z  )  +  fi  s 

m  - 1 ,  n  m ,  n  rn 

which  generalize  Eq.  (108).  The  convention  y  =  0  is  built  in.  To 

o ,  n 

visualize  this  arrangement  of  rays,  consider  the  half-plane  x  =  0,  y  >  0 

partitioned  into  rectangles  by  a  series  of  horizontal  lines  z  =  z  and 

m ,  n 

a  senes  of  vertical  lines  y  =  y^.  Grid  n  will,  then  consist  of  a  set  of 
rays  parallel  to  each  other  and  to  the  plane  y  =■  0.  They  will  have  axial 
projection  and  each  ray  of  the  grid  will  pass  through  the  center  of  one 
of  the  rectangles. 
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If  n  >  N,  grid  n  consists  of  the  rays  of  grid  n  -  N  traced  in  the  reverse 
direction. 

The  s  for  1  <  n  <  N  must  be  distinct  and  fall  within  the  open  interval 
0  <  n  <  1 ,  but  otherwise  they  are  arbitrary.  No  generality  is  lost  by 
requiring  that  they  be  in  monotonic  sequence,  so  assume  that 

1  =  M1  >  M2  >  ^3  ‘  ‘  >Mn  >  0 
MN+n  =  ~*n  •  4-n-N  (117) 

bi  case  n  =  1,  Eq.  (116)  is  replaced  by 

x  =  0 

y  =  1/2^.^  +  r.)  (118) 


z  =  s 


so  there  are  just  i  rays  in  this  grid. 

max  ° 

Equation  (115)  must  be  modified  to  handle  the  generalized  distribution 

2 

of  rays  properly.  The  factor  d  occurring  in  that  equation  is  the  area  of 
the  unit  square  in  the  lattice  of  rays  having  a  fixed  p  .  This  factor  must 

il 

be  replaced  by 

,  *  # 

i,m,n  n  ^i-l,n^  Zm,n  Zm-l,n^r*n  (119) 


when  1  <n  <  2N,  which  is  the  area  of  rectangle  associated  with  ray  H  , 

i,  m,  n 


and 


a. 

i,n 


(120) 


when  n  =  1  or  2N,  which  is  the  area  of  that  half  of  radial  interval  i  lying 

in  the  half-space  y£  0.  The  factor  1/N  in  Eq.  (115)  in  just  Ap  .  Thus, 

n 

the  equatz  for  the  rate  of  deposition  of  radiant  energy  in  any  given  hydro 
zone  is  estimated  to  be 


E  =  4 


■£ 


Ap  a.  (I. 

n  j?  ,  m ,  n  in 


-  I  ) 

out  0 

£,m,n 


(121) 
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where  the  sum  extends  over  all  rays  that  intersect  the  given  zone  and 

(I  -  I  )  denotes  the  difference  between  the  incoming  and  outgoing 

in  out  ^  ,m,  n 

intensities  along  ray  R, 

Ju  f  m  >  n 

In  the  current  version  of  LONG2,  the  input  routine  allows  only  one 

❖ 

value  of  Ay  and  one  value  of  Az  to  be  specified.  Then,  the  parametric 
n  n 

equations  for  ray  R  are 

m,  n 


and 


x  =  ri  s 
n 


y  =  (£-  1)  Ayn 


z  =  z  +  (m  +  £ )  Az  +  M  s 
min  n  n 


T) 

Ay 

* 

Az 

t 

>  1 

n 

a  = 

£,m,n 

'n 

n 

Ay 

n 

Az*/  2 
n 

l 

=  1 

(121a) 


(121b) 


No  connection  between  the  m  's  and  the  AM  's  has  yet  been  established. 

n  n 

What  has  been  tacitly  assumed  is  that  the  range  1  >  \i  >  -  1  is  divided  into 
abutting  intervals  and  that  the  nth  interval  is  of  length  Am  and  contains 

jjc 

H  in  its  interior.  Thus,  if  p  denotes  the  left  endpoint  of  interval  n,  then 
n  n 


(i#  = 

n 


M  ,  -  am 

n-i  n 


* 

MN+n 


* 


M2N 


MN-n 

-1 


M*  £  M  <  M* 
n  n  n-1 


1  <  n  <  2N 


(122) 
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AN 

x>„ 


An  obvious  source  of  error  connected  with  using  Eq.  (119)  for 

estimating  rates  of  energy  deposition  is  the  lack  of  any  close  connection 

between  the  set  of  rays  passing  through  the  system  of  interest  and  the 

HECTIC  hydro  mesh.  If  the  set  of  rays  corresponding  to  a  particular  n 

were  sufficiently  dense,  then  the  volume  V  of  any  given  zone  would  be 

nearly  2E  ^  where  t^m  n  is  the  length  of  the  intersection 

of  ray  and  the  given  zone.  The  proof  is  simple.  The  half- space 

y  >  0  may  be  thought  of  as  filled  with  non -overlapping  tubes  of  rectangular 

cross  section,  in  each  of  which  is  a  ray  and  t  a„  is  very  nearly 

t  e  volume  of  the  intersection  of  the  tube  containing  ray  R  and  the 

It  i  m  i  n 

given  zone,  providing  that  m  n  small  enough.  Consequently, 


^  i,m,n  ^»m»n  a^,m,n^^n 
iVAHn 


(123) 


The  ratio  V/V*,  which  is  denoted  by  A,  is  calculated  for  each  hydro  zone. 
Zones  for  which  A  <  1  intersect  more  than  their  share  of  rays,  whereas 
other  zones  intersect  less  than  their  share.  To  compensate  to  some  extent 
for  the  fact  that  A  £  1,  the  strength  of  the  radiative  source  in  each  zone  is 
multiplied  by  A.  As  was  mentioned  earlier,  the  source  strength  is  assumed 
to  be  constant  within  a  hydro  zone.  Therefore,  Eq.  (102)  becomes 


'out  ■ 


38 


AFWL-TR-67 -131,  Vol  II 


which,  when  integrated,  gives 


T  _  T  ,  AS  14  -crtv 

I  ^  =  I.  e  + - (1  -  e  ) 

out  m  <t 


(124) 


and 


I.  -  I  =  (I.  -— )  (1  -  e-<rt) 

in  out  m  cr 


for  the  contribution  of  one  summand  in  Eq.  (121).  Consider  what 
happens  when  crt «  1  and  =  0.  Then  1  -  e-<rt  -*■  crt  and 


•  .  V-'  .  AS 

E  =  4ir  >  A)i  a.  - -  <rt. 

/  .j  n  l,  m,n  cr  %,  m,n 

=  -4tt  ASV# 

=  -4tt  SV 

exactly.  Thus,  including  the  factor  A  in  Eq.  (124)  ensures  that  the 
correct  amount  of  radiation  is  emitted  in  each  zone. 

The  quantity 

w.  =  A  u  a  (125) 

i,  m ,  n  n  l,  m ,  n 

is  called  the  "weight"  of  the  ray  and 

J  =  4ir  wl  (126) 

is  (loosely)  called  the  "power"  of  a  ray  of  weight  w  at  a  point  where  its 
intensity  is  I.  Multiplying  Eq.  (124)  by  4irw  yields 


T  T  -crt  ,  4ir  w  AS  ,A  -crtv 

J  ^  =  J.  e  +  -  (1  -  e  ) 

out  m  o- 


(127) 


and  Eq.  (121)  becomes  simply 


E  =  Y,  (J.  -  J  .) 

^  in  out 


(128) 
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The  performance  of  the  simplified  version  of  the  method  is  poor 
when  the  thickness  of  the  hydro  zones  is  greater  than  a  few  mean  free 
paths,  because  the  assumption  of  a  constant  source  strength  within  each 
zone  implies  a  discontinuity  at  the  zone  boundaries  which,  in  turn,  causes 
the  estimated  rate  of  transfer  of  energy  to  be  much  too  high.  In  LONG2, 
there  is  a  special  treatment  of  the  transfer  of  energy  between  thick  zones, 
a  thick  zone  being  one  for  which<r(r.  -  r.  .)  and  cr(z.  -  z.  )  are  both 

X  1-1  J  J-1 

larger  than  some  input  criterion  ,  usually  5  mfp.  In  the  event  that 
two  thick  zones  share  a  common  boundary,  all  rays  crossing  that  boundary 
are  ignored  and  the  rate  of  energy  transfer  between  those  two  zones  is 
estimated  to  be 


4-rr  ,  AS  /a 

Ed  ‘  “aT 


(129) 


where  A^  is  the  area  of  the  common  boundary,  A(S/ct)  is  the  difference  in 
zone  centered  values  of  S/or,  At  is  the  optical  distance  between  the  zone 
centers,  and  the  minus  sign  indicates  that  the  direction  of  flow  is  counter 
to  the  source  gradient. 

Consider  a  thick-thin  boundary,  i.e.  ,  the  interface  between  two 
zone,  one  of  which  is  thick  and  the  other  is  not.  First,  it.  may  ce  stated 
that  the  treatment  of  a  thin  zone  is  unaffected  by  the  thickness  or  thinness 
of  its  neighbors,  Eq.  (121)  being  used  in  all  such  cases.  However,  where 
a  ray  passes  from  a  thin  zone  into  a  thick  one,  its  power  at  that  point  is 
counted  as  a  contribution  to  E  for  the  thick  zone.  Where  a  ray  emerges 
from  a  thick  zone  into  a  thin  one,  its  power  is  set  to 

J  =  4irw  AS/cr  (130) 


where  AS/cr  is  evaluated  at  the  center  of  the  thick  zone  and  -J  is  added  to 
E  for  the  thick  zone. 
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SOURCES 


Two  types  of  sources  are  treated  by  LONG2:  distributed  sources 
and  boundary  sources.  The  distributed  sources  are  derived  from  temper¬ 
atures  calculated  in  the  hydro  subroutines  by  the  formula 


s  =  £  e4  <7 

4it 


£)-£)) 


(131) 


where  ac/4  is  Stefan's  constant,  0  is  the  temperature,  <r  is  the  absorption 
coefficient,  v  <  is  the  band  of  frequencies  being  considered,  and 


P(x) 


1 5  fX  u^du 

4  J  ~"u  7 

n  o  e  -  1 


(132) 


is  the  integral  of  Planck's  radiation  function.  As  has  already  been 
mentioned,  the  absorption  coefficient  and  the  source  are  calculated  for 
each  zone  using  zone -central  data  and  are  assumed  to  be  constant  over  the 
zone. 

In  the  current  version  of  LONG2,  boundary  temperatures  are  input  on 

cards  and  remain  consta.it  from  time  step  to  time  step,  but  they  could  just 

as  well  be  calculated.  In  any  case,  the  surface  temperature  is  specified 

for  each  axial  interval  z.  <  i  s  z.  on  the  outer  cylindrical  surface  r  =  R 

j-1  j  7 

of  the  system  and  for  each  radial  interval  r.  .  £  r  <  r.  on  the  bottom 

l-l  i 

z  =  z  .  and  top  z  =  z  .  The  rate  at  which  energy  enters  the  system 
min  max  07  7 

through  "each  of  these  intervals  is  taken  to  be 


(133) 


where  a  is  the  area  of  the  interval.  The  power  carried  into  the  system  by 
a  ray  originating  in  some  interval  is  assumed  to  be 


J 


w  E. 


(134) 


where  £  w  is  the  sum  of  the  weights  of  all  rays  originating  in  that  interval. 
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GENERAL  DESCRIPTION  OF  LONG2 

The  program  LONG2  consists  of  two  major  subroutines  of  HECTIC 

•whose  entry  points  are  DRAW  and  TRAN2.  DRAW  is  entered  only  when  a 

new  hydro  mesh  has  been  generated.  The  result  of  calling  DRAW  ir.  to 

produce  for  each  ray  the  sequence  (t  ,  k  )*>r^ax,  where  p  is  the  number 

p  p  p=l  max 

of  segments  into  which  the  ray  is  divided  by  boundaries  of  the  hydro  inesh, 

tp  is  the  length  of  segment  p,  and  kp  is  the  index  of  the  zone  in  which 

segment  p  lies.  The  order  of  the  sequence  is  the  order  in  whJch  the 

segments  <*re  traversed  as  the  ray  is  traced.  The  reverse  of  the  sequence 

for  one  ray  is  the  sequence  of  another  ray  running  in  the  opposite  direction 

along  the  same  line.  DRAW  stores  these  sequences  in  an  I/O  file  in  blocks 

of  up  to  1023  words.  There  is  a  three-word  prologue  to  each  sequence 

specifying  the  weight  w  of  the  ray  and  the  boundary  intervals  in  which  it 

begins  and  ends.  When  the  physical  system  under  consideration  has  a 

symmetry  plane,  it  is  necessary  to  consider  what  happens  on  only  one  side 

of  it.  In  such  cases,  either  z  =  z  or  a  -  z.  may  be  the  symmetry 

o  jmax  7  77 

plane  --  but  assume  it  is  the  former.  Then  DRAW  sets  z*  =  z  so  that  the 

o  o 

system  of  rays  will  have  the  same  symmetry  plane.  Rays  hitting  the  plane 
z  =  Zq  do  not  then  emerge  from  the  system  but  are  reflected  there.  In 
symmetrical  problems,  rays  for  which  p  =  ±1  require  special  treatment 
because  they  are  their  own  images  in  a  symmetry  plane;  TRAN2  is 
instructed  not  to  retrace  such  rays. 

As  the  ray  sequences  are  generated,  the  terms  in  the  summation  for 
V*  are  accumulated  so  that  when  the  DRAW  file  is  complete,  an  array  con¬ 
taining  4irA  for  each  zone  may  be  established.  (See  Eq.  (123).)  In  a 
similar  manner,  the  weights  of  ruys  intersecting  various  outer  boundary 
intervals  are  accumulated  for  use  in  evaluating  Eq.  (134). 

When  subroutine  TRAN2  is  called",  it  begins  by  calculating  absorption 
coefficients  and  sources  for  each  hydro  zone  and  the  input  power  for  each 
interval  of  the  outer  boundary  of  the  system.  It  then  runs  through  the 
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tile  of  ray  sequences,  calculating  the  changes  in  the  power  level  and  con¬ 
tributions  to  zonal  rates  of  deposition  of  energy.  This  is  done  by  first 
using  Eq.  (134)  to  get  the  initial  power  in  the  ray  on  the  basis  of  information 
contained  in  the  prologue  to  the  sequence  to  identify  the  starting  interval. 
Then  for  each  pair  (t,k)  in  sequence,  Eq.  (127)  is  applied  to  estimate  the 
change  in  J  caused  by  traveling  a  distance  t  in  ^one  k.  The  order  of  the 
sequence  is  the  order  in  which  the  segments  of  path  are  encountered  as 
the  ray  passes  through  the  system,  so  it  is  unnecessary  to  store  the  J's. 
When  J  is  calculated  at  some  zone  boundary,  it  suffices  to  subtract  it  from 
the  running  total  for  E  for  the  zone  the  ray  leaves  and  to  add  it  to  that 
of  the  zone  it  enters.  Equation  (127)  is  then  used  to  find  the  change  in  J 
as  the  latter  zone  is  traversed.  When  a  thick  zone  is  encountered,  the 
current  J  is  added  to  the  E  of  that  zone  in  the  normal  manner.  But  then, 
rather  than  update  J,  all  segments  are  skipped  until  a  thin  zone  is  encoun¬ 
tered,  at  which  point  Eq.  (130)  is  used  to  estimate  J  and  the  normal  is 
resumed.  After  all  the  sequences  have  been  processed,  the  zone  boundaries 
are  systematically  scanned  for  thick-thick  interfaces  which,  when  found,  are 
assumed  to  transmit  energy  at  a  rate  specified  by  Eq.  (129).  When  all  the 
transfer  rates  have  been  estimated,  the  changes  in  the  internal  energy  of 
each  zone  are  calculated  along  with  the  energy  transfer  across  the  outer 
boundary  of  the  system.  The  subroutine  concludes  with  the  calculation  of 
various  summary  data  used  for  checking  energy  balance. 

RELATIONSHIP  OF  LQNG2  TO  THE  PREVIOUS  VERSION 

As  has  been  stated  above,  the  current  version  of  LONG2  consists  of 
two  subroutines:  DRAW  and  TRAN2.  These  two  subroutines  are  very 
similar  to  those  with  the  same  names  described  in  reference  4.  There 
are  only  two  significant  differences  between  the  old  and  new  versions  of 
LONG2.  The  tirst  is  the  introduction  into  the  current  version  of  a  facility 
for  assigning  weights  to  rays  which  makes  it  possible  to  use  nonuniform 
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grids.  The  second  difference  is  the  special  diffusion-theoretic  treatment 
of  thick-thick  interfaces  in  the  current  version.  Such  basic  features  as 
the  ove-all  organization,  the  arrangement  of  data  on  I/O  files,  and  the 
flow  of  control  remain  virtually  unaltered. 

AVENUES  FOR  FURTHER  DEVELOPMENT 

In  this  subsection,  the  question  of  what  might  be  done  with  L.ONG2 
to  enable  it  to  perform  more  efficiently  the  job  for  which  it  is  designed  is 
examined.  The  discussion  of  possibilities  for  extending  the  code  to  include 
treatments  of  scattering,  radiation  pressure,  and  retardation  is  beyond 
the  scope  of  this  report.  There  are  two  probltms  that  should  receive  high 
priority  in  any  plans  to  continue  the  development  of  LONG2.  The  first 
concerns  the  fact  that  because  the  rays  travel  all  the  way  through  the  system, 
it  is  rarely  possible  to  space  them  closely  enough  in  regions  where  close 
spacing  is  required  without  having  many  more  nys  than  necessary  every¬ 
where  else,  particularly  at  large  radii.  As  a  c Jnsequence,  an  excessive 
amount  of  computing  effort  is  spent  on  relative  y  uninteresting  parts  of 
the  geometry.  The  second  major  problem  arises  from  the  fact  that  the 
source  of  radiation  is  assumed  to  be  constant  over  a  HECTIC  hydro  zone, 
which  results  in  an  unrealistically  high  valve  for  the  computed  rate  of 
transfer  of  radiant  energy.  The  so-called  "view  factor  method"  discussed 
in  later  sections  of  the  present  report  wa?  designed  specifically  to  overcome 
these  obstacles.  The  remainder  of  this  subsection  is  a  discussion  of  ways 
in  which  LONG2  could  be  extended  to  handle  them. 

The  uniformity  with  which  the  rays  are  distributed  through  the  system 
is  a  matter  of  primary  importance  ir.  the  long -characteristic  method.  If 
a  HECTIC  hydro  zone  is  intersected  by  fewer  than  its  fair  share  of  rays, 
it  will  tend  to  cool  faster  than  it  should  because  it  will  fail  to  receive  its 
full  share  of  the  radiant  energy  emitted  by  its  neighbors.  The  result  of 
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running  a  problem  with  an  inadequate  supply  of  rays  is  thus  an  uneveness 
in  the  temperature  distribution  that  persists  through  all  time  steps.  On 
the  other  hand,  if  the  system  is  too  generously  infused  with  rays,  the  file 
of  ray  data  will  usually  be  enormous  and  the  time  required  for  processing 
it  prohibitive.  Suppose,  for  example,  that  the  system  is  divided  into  a 
40-by-40  HECTIC  mesh  and  that  the  center  of  each  zone  coincides  with 
the  center  of  a  ray  in  each  of  three  grids.  In  such  a  mesh,  a  typical  ray 
would  be  divided  into  about  80  segments.  At  two  words  per  segment,  the 

5 

length  of  the  file  ray  data,  would  be,  roughly,  40  x  40  x  80  x  3  x  2  =  7.  68  x  10 
words,  which  would  take  about  a  minute  to  read  on  a  fast  tape  drive.  More 
significant  is  the  fact  that  3  x  80  =  240  segments  /  zone  is  about  20  times 
more  than  are  needed  on  the  average,  even  though  the  inner  zones  would 
be  penetrated  by  only  five  or  six  rays.  The  situation  is  usually  even  worse 
for  large  problems  and  for  problems  with  thin  inner  zones,  because  in  such 
cases  the  number  of  segments  per  ray  tends  to  be  higher. 

The  most  direct  method  for  allowing  the  density  of  rays  to  be  adjusted 
more  or  less  arbitrarily  and  independently  in  various  parts  of  the  system 
is  to  provide  a  means  for  handling  rays  that  have  endpoints  in  the  interior 
of  the  system.  This  could  be  accomplished  by  allowing  a  ray  to  split  into 
two  or  more  parallel  subordinate  rays.  In  TRAN2,  when  a  ray  being  traced 
arrived  at  a  point  where  it  was  split,  the  energy  that  it  carried  could  be 
divided  equally  among  the  new  subordinate  rays  to  provide  them  with  a  sort 
of  initial  condition.  In  the  reverse  direction,  the  energy  in  the  subordinate 
rays  could  be  accumulated  at  the  point  of  splitting  to  provide  an  initial 
condition  for  the  reverse  trace  of  the  main  ray.  Such  a  modification,  while 
simple  in  principle,  would  considerably  increase  the  complexity  of  the 
subroutine  DRAW.  However,  it  seems  likely  that  if  such  a  splitting  scheme 
were  instituted,  it  would  be  possible  to  allow  subordinate  rays  to  be  split 
again  without  additional  complication.  The  subroutine  TRAN2  would  not 
necessarily  be  much  affected  by  splitting,  since  the  solutions  of  all  the 
logical  problems  solved  in  DRAW  could  be  transmitted  to  TRAN2  in  the 
file  of  ray  data. 
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The  second  of  the  above-mentioned  problems  is  associated  with  the 
assumption  of  a  flat  source  over  each  HECTIC  zone.  A  partial  solution 
has  already  been  implemented  in  the  current  version  of  LONG2,  namely, 
the  use  of  diffusion  theory  to  estimate  the  transfer  rate  across  thick-thick 
interfaces.  One  deficiency  in  this  solution  is  the  fact  that  the  numerical 
results  are  too  strongly  dependent  upon  the  value  of  the  parameter  used 
in  the  criterion  for  deciding  whether  or  not  a  zone  is  thick.  The  degree 
of  the  deficiency  could  be  reduced  by  varying  the  source  in  zones  that  are, 
so  to  epeak,  "fairly  thick"  in  such  a  way  that  the  source  gradient  at  inter¬ 
faces  where  the  criterion  for  using  the  diffusion  approximation  is  nearly 
met  is  equal  to  the  diffusion  theoretic  value.  Such  measures  cannot, 
however,  be  expected  to  provide  a  totally  satisfactory  solution  to  this  very 
difficult  problem,  which  still  causes  trouble  in  codes  for  calculating 
transport  in  one -dimensional  geometries. 
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SECTION  IV 
THE  PROGRAM  LONG2 


The  programming  details  of  LONG2  are  described  in  the  following  para¬ 
graphs.  The  appendix  contains  alisting  of  the  actual  FORTRAN  statements. 

SUBROUTINE  DRAW 
Flow  of  Control 

The  main  function  of  SUBROUTINE  DRAW  is  to  provide  SUBROUTINE 
TRAN2  with  representative  ray  paths,  along  which  radiation  transport 
calculations  may  be  performed  for  each  cycle  of  a  HECTIC  problem.  Each 
ray  path  constructed  by  DRAW  is  defined  by  the  indices  of  the  hydro  zones 
pierced  by  the  ray  and  the  segment  length  of  the  ray  in  each  of  these  zones, 
arranged  in  an  ordered  fashion.  Since  th^se  representative  ray  paths  may 
be  a  constant  of  the  HECTIC  hydro  mesh,  SUBROUTINE  DRAW  has  been 
designed  to  output  this  ray-path  information  onto  tape  so  that  only  one 
FORTRAN  CALL  to  SUBROUTINE  DRAW  need  be  executed  at  the  beginning 
of  a  problem,  and  none  for  successive  restarts. 

The  majority  of  SUBROUTINE  DRAW  is  under  control  of  three  nested 
DO- LOOPS:  a  0  grid  loop,  a  comb  loop,  and  a  ray  loop.  The  0  grid  loop 
is  completely  defined  by  four  FORTRAN  variables  (EMU,  DMU,  DZ1,  and 
DR1)  which  are  input  on  cards  for  each  grid  to  be  constructed  by  DRAW. 

A  0  =  0  grid  is  not  allowed  as  an  input  grid  and  is  always  constructed  by 
DRAW  after  all  the  input  grids  have  been  constructed. 

Construction  of  a  grid  is  begun  by  extending  the  system  boundaries  to 
form  "ray"  boundaries  which  provide  limits  beyond  which  no  rays  of  the  grid 
can  intersect  the  system  of  hydro  zones.  Combs  of  the  grid  are  constructed, 
and  the  tracing  of  each  ray  of  a  comb  for  all  combs  of  the  grid  is  initiated. 

The  tracing  of  each  ray  is  always  started  at  the  ray's  point  of 
closest  approach  to  the  vertical  axis,  which  is  called  the  "center”  of  the 
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ray,  and  the  tracing  is  done  in  two  passes  called  the  "upward"  pass  and 
the  "downward"  pass.  The  upward  pass  is  begun  in  the  section  of  coding 
labeled  "BEGIN  UPWARD  TRACE,"  and  the  downward  pass  is  begun  in  the 
section  of  coding  labeled  "BEGIN  DOWNWARD  TRACE.  "  An  attempt  is 
made  to  first  trace  the  ray  in  an  upward  direction,  and  if  possible  it  is 
traced  in  that  direction  until  it  leaves  the  system.  (If  the  center  of  the  ray 
is  at  or  below  a  reflecting  system  bottom  boundary,  the  upward  trace  can¬ 
not  be  performed,  since  the  ray  never  enters  the  system.  )  After  the  ray 
has  been  traced  in  an  upward  fashion  through  its  possible  reflection  at  the 
top  system  boundary  and  successive  downward  path  and  exit,  control  is 
again  returned  to  the  ray's  center  and  the  downward  pass  is  performed. 

If  the  ray  happens  to  have  its  center  above  the  top  boundary  which  is  trans- 
mittive,  no  upward  pass  is  performed  and  the  first  pass  is  a  downward  pass. 
Execution  of  the  downward  pass  is  similar  to  that  of  the  upward  pass. 

The  upward  and  downward  tracing  within  each  pass  is  performed  by 
sections  of  the  code  labeled  "GENERAL  CASE  OF  INCREASING  Z"  and 
"GENERAL  CASE  OF  DECREASING  Z,"  respectively.  There  are  several 
smaller  blocks  of  coding  that  feed  into  the  above  two  sections  which  initis.  - 
lize  parameters  for  the  beginning  of  an  upward  or  downward  trace,  or 
after  a  reflection.  The  FORTRAN  variable  IUP  indicates  whether  an  upward 
pass  or  a  downward  pass  has  been  performed,  and  tracing  is  complete  when 
the  ray  has  been  completely  followed  through  the  system. 

If  a  ray  enters  the  system,  the  weight  WT  associated  with  that  ray  is 
added  into  the  appropriate  location  of  one  of  the  FORTRAN  arrays  BETAA, 
BETAR,  or  BETAB,  depending  on  whether  the  ray  enters  the  top  (above), 
side  (right),  or  bottom  system  boundary,  respectively.  This  information 
is  made  available  to  SUBROUTINE  TRAN2  for  use  in  calculating  the  initial 
radiative  energy  a  ray  possesses  when  it  enters  the  system  via  one  of  the 
system  boundaries  which  have  black-body  temperature  profiles  associated 
with  them.  Rays  constructed  in  DRAW  which  intersect  the  vertical  axis 
have  half  the  weight  that  would  normally  be  assigned  to  them  since  in 
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TRAN2  transport  is  performed  in  two  directions  .  'ong  these  rays  and,  in 
actuality,  these  rays  represent  only  one  possible  set  of  rays  in  the  system. 

When  the  tracing  of  a  ray  through  a  hydro  zone  is  performed,  the 
segment  length  of  the  ray  in  that  hydro  zone  and  the  index  of  the  hydro 
zone  are  stored  in  temporary  storage  arrays  XB  and  KXA,  respectively. 

When  the  trace  of  a  ray  is  completed,  if  two  passes  are  actually 
performed  it  is  necessary  to  connect  the  two  separate  strings  of  data  in 
such  a  way  as  to  have  a  continuous  chain  of  zone  indices  or  segment  lengths 
portraying  the  path  oi  the  ray  through  the  system.  Before  the  indices  and 
segments  are  merged  into  one  output  storage  array  buffer  (ER  s  NER)  by 
a  packing  section  of  code,  each  segment  length  of  the  path  is  added  to  the 
appropriate  location  in  the  XALP  array. 

As  the  rays  of  each  grid  are  traced  and  the  output  storage  buffer  is 
filled  with  indices,  segments,  the  weight  WT  of  each  ray,  and  flags  to  show 
through  which  system  boundaries  the  ray  enters  and  exits,  the  buffer  is 
output  onto  tape  as  its  contents  reach  the  limit  of  1023  words. 

After  the  input  grids  have  beer  constructed,  the  construction  of  the 
rays  of  the  0  =  0  grid  is  treated  in  essentially  the  same  manner  as  that  of 
the  rays  of  the  input  grids.  One  situation  in  which  the  0  =  0  grid  is 
exceptional  is  in  the  presence  of  a  symmetry  plane.  When  there  is  a 
symmetry  plane  at  *<ie  bottom,  an  ordinary  ray  will  have  its  center  above 
the  plane,  and  its  image  will  be  a  different  ray  whose  center  is  below  the 
plane.  But  a  ray  that  is  parallel  to  the  axis  is  its  own  image,  and  it  would 
be  redundant  to  trace  it  both  forward  and  backward.  TRAN2  is  apprised  of 
this  fact  by  setting  NXIT  =  -1  in  the  prologue  of  rays  for  which©  =  0  for 
symmetrical  problems. 

At  the  end  of  DRAW ,  a  terminal  record  is  written  on  the  tape  of  ray 
data  and  control  is  returned  to  MAIN  of  HECTIC. 
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Input  to  DRAW 

Medium  Variables 

CARDS  CLAMDA 

ATHETA(I),  1=1 ,  IMAX 
RTHETA(J),  J  =  1 ,  JMAX 
BTHETA(I),  1=1, IMAX 
AN  Ci! 

(EMU,  DMU,  DZ1,  DR  1 ) , 
IANG  =  1 ,  NANG 


Error  Termination  in  DRAW 


Type 

Indicator 

Description  of  Error 

INPUT 

SI  =  5.0025 

X(0)  > 10"10 

INPUT 

SI  =  5.0021 

cos  0  >  . 99995 

NANG 

INPUT 

SI  =  5.0022 

£  DMU  >  1. 

i  =  1 

INPUT 

SI  =  5.0023 

FIX  (IMAX  /DR  1  +  0.8)  >  100; 

INPUT 

PROGRAMMING 

PROGRAMMING 

PROGRAMMING 

PROGRAMMING 

PROGRAMMING 

PROGRAMMING 


SI  =  5.0024 
SI  =  5.0075 
SI  =  5.0082 
SI  =  5.0105 
SI  =  5. 0112 
SI  =  5.0135 
SI  =  5. 0160 


that  is,  the  numbers  of  combs 
per  grid  is  >100 

BCBTAG  and  BOAT  AG  <  0 
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Results  of  DRAW 


Medium 


COMMON 


DRAW  TAPE  OR  DISK 


Variables 


CLAMDA 
ATHETA(I) . 
RTHETA(J), 
BTHETA(I), 
BETAA(I) , 
BETAR(J), 
BETAB(I) , 
XALP(K), 


1=1 ,  IMAX 
J  =  l,  JMAX 
1  =  1,  IMAX 
1  =  1  .IMAX 
J  =  1 ,  JMAX 
1=1  JMAX 
K=2 ,  KMAX 


Contains  for  each  ray  traced: 

1)  Index  of  each  hydro  zone  pierced 

2)  Length  of  ray  segment  in  each 
pierced  zone 

3)  System  boundary  through  which  ray 
enters 

4)  System  boundary  through  which  ray 
exits 

5)  Weight  associated  with  ray 


i 


I 


I 
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(in  eV) 

(input  on  cards) 
(used  in  TRAN2) 


BCATAG  None 

BCBTAG  None 

BETAA(I)  None 

BETAB(I)  None 

BETAR(J)  None 

BTHETA(I)  6 

out 

CLAMDA  c 


Boundary  flags.  A  and  B  refer  to  top  (above) 
and  bottom  system  boundaries,  respectively. 

If  0<  0,  boundary  is  a  perfect  reflector; 
otherwise,  it  is  transmittive  to  radiation. 

^(weight  WT  of  each  ray) 

all  rays  passing 
through  the  system 
boundary  adjacent  to 
zone  (I.JMAX) 

^(weight  WT  of  each  ray) 

all  rays  passing 
through  the  system 
boundary  adjacent  to 
zone  (1,1) 

]T(weight  WT  of  each  rny) 

all  rays  passing 
through  the  system 
boundary  adjacent  to 
zone  (IMAX ,  J ) 

The  temperature  of  the  black -body  system 
boundary  adjacent  to  zone  (I,  1) 

(in  eV) 

(input  on  cards) 

(us;d  in  TRAN2) 

Thick-thin  zone  criterion 
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(in  number  of  mean  free  paths) 

(input  on  a  card) 

(used  in  TRAN2) 

CO  TAN 

N.-;»e 

COT0 

DBGPRT 

None 

The  debug  print  control: 

|DBGPRT|  >  lO'^O  means  debug  print 
desired:  otnerwise,  debug 
print  not  desired. 

DELS 

t 

In  tracing  a  ray,  the  length  (or  segment) 
of  a  ray  in  a  hydro  zone. 

(in  cm) 

DELX 

None 

The  projection  of  t  onto  a  horizontal  plane 

(in  cm) 

DELZ 

None 

The  projection  of  t  onto  the  vertical  axis 

(in  cm) 

DMU 

Ah. 

Aco 6  0  for  a  0  grid 

(input  on  cards) 

DR1 

Ay 

Radial  distance  between  rays  of  a  0  grid 
(constant  for  a  grid) 

(in  cm) 

(input  on  cards) 

DXF 

None 

1  /  sin  0 

DY(J) 

z  ,-z . 

J  J'l 

vertical  length  of  hydro  zones  (I.J), 

1  =  1,  IMAX 

(in  cm) 

DZ1 

Az 

Vertical  distance  between  rays  of  a  0  grid 
(constant  for  a  grid) 

(in  cm) 

(input  on  cards) 

DZF 

None 

1  / C06  0 

EMU 

cos  0,  the  input  parameter  that  specifies 
a  0  grid 

(input  on  cards) 
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ER 

None 

=  NER,  The  output  storage  buffer  array  for 
ray  data  that  is  to  be  written  on  the  ray  tapt 

ETA 

1 

sin  6 

FIOUT 

None 

Saved  temporarily  on  disk  in  DRAW 

I 

None 

A  running  index 

IANG 

None 

Running  index  of  the  6  grid  DO -LOOP 

IB 

None 

Temporary  storage  for  a  subscript 

ICOR 

None 

In  tracing  a  ray, 

ICOR  =  1  means  the  ray  hits  the  corner 
of  a  hydro  zone 

ICOR  =  0  means  the  ray  does  not  hit  the 
corner  of  a  hydro  zone 

IDNMN 

None 

In  merging  starting  segments  of  the  upward 
and  downward  passes, 

IDNMN  =  201  means  starting  segments  for 
each  pass  are  not  in  the  same  hydi 
zone 

IDNMN  =  202  means  starting  segments  for 
each  pass  are  in  the  same  hydro 
zone 

IEND 

None 

A  DO -LOOP  limit  in  the  0  =  0  trace 

IGWD 

None 

In  tracing  rays,  the  index  of  the  last  word 
loaded  into  the  output  storage  buffer  array 
ER  (which  is  limited  to  102">  words).  When 
the  storage  array  is  filled  and  written  onto 
tape,  ER(1)  =  NER(l)  =  IGWD 

II 

None 

A  running  index 

112 

None 

eITOT.  The  total  number  of  hydro  zones 
a  ray  penetrates 

IIR 

None 

A  running  index 

IITOT 

None 

The  accumulative  number  of  ray  segments 
generated  by  DRAW 

IM 

None 

A  running  index 

IMAX 

i 

max 

The  number  of  radial  hydro  zones 

INW 

None 

Temporary  storage  for  a  subscript 
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IQ 

Non  e 

The  number  of  radial  hydro  zones  that  a 
ray  penetrates  in  traversing  the  system 

IQQ 

None 

A  running  index 

IRD 

None 

Running  index  of  the  comb  DO -LOOP 

IRSTRT 

None 

Index  I  of  the  innermost  radial  hydro  zones 
(I,J),  J  =  l,  JMAX  intersected  by  a  comb 

IRX 

L 

n 

The  number  of  combs  in  a  0  grid 

IS  END 

None 

An  error  flag  used  by  SUBROUTINE  EDIT 

ITOP 

None 

In  tracing  a  ray , 

ITOP  =  1  means  the  center  of  a  ray  lies  at 
or  above  the  plane  Y(JMAX) 

ITOP  =  0  means  otherwise 

ITOT 

None 

=112  .  (see  112 ) 

ITR 

None 

In  tracing  a  ray,  the  radial  hydro  zone  which 
contains  the  current  ray  segment 

IT  WD 

None 

A  running  index 

IUP 

None 

The  subscript  of  the  last  entry  made  in  the 
arrays  KXA  and  XB: 

IUP  £  200  on  the  upward  pass 

IUP  >  200  on  the  downward  pass 

IUPM 

None 

A  DO -LOOP  limit 

IUPUP 

None 

The  la6t  value  of  IUP  on  the  first  (upward) 
pa6  s 

IXX 

None 

Given  XTR,  IXX  is  such  that  RX(IXX)  >  XTR 
and  RX(IXX-l)  £  XTR 

IZRAY 

None 

Running  index  of  the  ray  DO -LOOP 

J 

None 

A  running  index 

JB 

None 

A  running  index 

JMAX 

^max 

In  tracing  a  ray,  the  vertical  hydro  zone 
which  contains  the  current  ray  segment 

JZX 

None 

The  numbers  of  rays  in  a  comt 

K 

None 

The  subscript  of  a  hydro  zone 

KM  AX 

None 

KMAX-1  is  the  total  number  of  hydro  zones 
in  the  system 
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KM  AX  A 

None 

KMAX  +  1 

KTR 

None 

In  tracing  a  ray,  the  index  of  the  hydro  zone 
which  contains  the  current  ray  segment 

KX1 

None 

Temporary  storage  for  integers 

KXA 

None 

KXA(IUP)  contains  the  subscript  of  the  hydro 
zone  containing  the  rurrent  segment  (XB(IUP)) 
of  the  ray  being  traced 

LI 

None 

A  DO-LOOP  limit 

L2 

None 

A  DO  -  LOOP  limit 

L3 

None 

In  summing  all  ray  segment  lengths  contained 
in  a  zone  to  compute  XALP(K), 

L3  =  1  means  summing  first  pass  segments 

L3  =  2  means  summing  second  pass  segments 

NANG 

N-l 

Number  of  6  grids  to  be  constructed  by  DRAW 

NER 

None 

e  ER 

NPOINT 

None 

A  pointer  used  to  return  control  from  the 
ray -packing  section  of  DRAW 

NRGP 

None 

The  number  of  current  ray  traces  in  the 
output  storage  buffer,  ER  =  NER 

NTER 

None 

NTER  =  (1/2/3)  indicates  that  a  ray  enters 
the  system  through  the  (bottom/right/top) 
boundary 

NWD 

None 

The  number  of  new  words  to  be  added  to  the 
current  accumulation  of  ray  data  in  the  output 
storage  buffer,  ER  =  NER 

NX  IT 

None 

NXIT  >  0 

NXIT  =  (1/2/3)  indicates  that  a  ray  leaves 
the  6y6tem  through  the  (bottom/ 
right/top)  boundary 

NXIT  <  0 

NXIT  <  0  flags  a  0  =  0  trace  for  TRAN 2 

P 

None 

Saved  temporarily  on  disk  in  DRAW 

PARIM 

None 

Temporary  storage 

PI 

7f 

tr 

QW 

None 

Temporary  storage 
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RPT(IRD) 

None 

The  radial  coordinate  of  the  "center"  (see 
ZCNTR)  of  the  rays  of  comb  IRD 

(in  cm) 

RTHETA(J) 

Gout 

The  temperature  of  the  black-body  system 
boundary  adjacent  to  zone  (IMAX,  J) 

(in  eV) 

(input  on  card  s ) 

(used  in  TRAN2) 

R) 

None 

RX(I),  1=1, IQ,  is  the  horizontal  projection 
of  the  distance  along  a  ray  from  the  "center" 
(see  ZCNTR)  of  the  ray  to  successive  radial 
zone  boundaries  intersected  by  the  ray  (being 
the  same  for  all  rays  in  a  comb) 

(in  cm) 

SI 

None 

Error  flag  for  EDIT 

SDELX 

SDELZ 

None  ) 

None ) 

When  ZCNTR  of  a  ray  is  not  between  Y(0) 
and  Y(JMAX),  SDELX  is  the  horizontal 
projection  of  the  distance  along  the  ray  from 
its  "center"  (see  ZCNTR)  to  the  poi  t  where 

it  enters  the  system,  and  SDELZ  is  the 
axial  projection 


(in  cm) 

SMU 

None 

1  -  y^DMU 

i=l,  LANG 

TAU(I) 

|  The  area  of  the  annulus  defined  by  radial 
hydro  interval  I 

2 

(in  cm  ) 

U 

None 

*ROSS.  Saved  temporarily  on  disk  in  DRAW 

V 

None 

=  KXA.  Saved  temporarily  on  disk  in  DRAW 

WT 

£,m,n 

The  weigh.  a6So  iated  with  a  given  ray: 

If  0  *  0, 

WT  =  (Acos0  AZ  AR  sin0)(F),  where 
F  =  1  if  IRD  *  1  and 
F  =  .5  if  IRD  =  1 


If  0  =  0, 

WT  =  1/2  sin  0  TAU(I) 
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WTP 

None 

Temporary  storage,  used  in  the  WT  calcula¬ 
tion  for  0=0  trace 

X(I) 

r . 

1 

Cuter  radius  of  radial  hydro  zone  I 

(in  cm) 

XALP(K) 

4  it  A 

=  2#TAU(I)#Ay*  tr/^jP  [(length  of  ray  in  zone  K) 
all  rays  *(weight  WT  of  ray)j 
passing 
through 
zone  K 

XB 

None 

XB(IUP)  contains  the  segment  length  in  the 
current  zone  (KXA(IUP))  of  the  ray  being  traced 
traced 

XTR 

None 

In  tracing  a  ray,  XTR  is  the  horizontal  compo¬ 
nent  of  the  distance  along  a  ray  from  the 
’’center"  (see  ZCNTR)  of  the  ray  to  the  begin¬ 
ning  of  the  current  ray  segment 

(in  cm) 

XX2 

None 

Temporary  storage 

Y(J) 

z. 

J 

The  vertical  coordinate  of  the  upper  boundary 
of  hydro  zones  (I,  J),  1=1, IMAX 

(in  cm) 

ZCNTR 

None 

The  axial  coordinate  of  the  point  of  closest 
approach  of  a  ray  to  the  vertical  axis,  or  the 
"center"  of  a  ray 

(in  cm) 

ZEND 

None 

The  axial  coordinate  of  the  "center"  (see 
ZCNTR)  of  ray  (IZRAY=JZX) 

(in  cm) 

ZSTRT 

None 

The  axial  coordinate  of  the  "center"  (see 
ZCNTR)  of  ray  (IZRAY  =  1) 

(in  cm) 

ZTR 

None 

In  tracing  a  ray,  ZTR  is  the  axial  coordinate 

of  the  beginning  of  the  current  ray  segment 
(in  cm) 

X(IMAX)*cot  0,  used  in  the  calculation  of 
ZSTRT  and  ZEND 


ZXTRA 


None 
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SUBROUTINE  TRAN2 
Flow  of  Control 


The  main  function  of  SUBROUTINE  TRAN2  is  to  perform  transport 
calculations  along  the  representative  ray  paths  supplied  by  SUBROUTINE 
DRAW,  extracting  and  depositing  radiative  energy  from  the  HECTIC 
hydro  zones  according  to  the  temperature  and  optical  depth  of  each  zone. 

Upon  entering  SUBROUTINE  TRAN2  from  MAIN,  the  integrated  hiack- 
body  intensity  b(K)  for  each  hydro  zone  is  calculated  if  the  zone  is  con¬ 
sidered  "active"  by  HECTIC  standards. 

Next,  the  black-body  boundary  conditions  are  calculated.  The 
amount  of  energy  EguRF  entering  the  system  boundary  through  zone  K 
from  a  black-body  boundary  at  temperature  0  (ATHETA,  RTHETA,  or 
BTHETA  in  the  code)  is  given  by  Eq.  (133): 


E 


-  ac 
SURF  “  4 


hv7/e 


i  2,yu 
Vhvj/J  * 


3 

u  du 


FUNCTION  PLNKUT  in 
the  code 


Stefan's  constant 


the  area  which  zone  K  presents  to  the  black-body  boundary 

the  frequency  limits  (hv  =  0.001  eV,  hv_  =  10^  eVin  the 

1  2 

monofrequency  problem) 

Planck's  constant 


The  amount  of  this  energy  apportioned  to  each  constructed  ray  (with  weight 


WTray)  which  enters  the  system  through  zone  K  is  given  by 

E  •  WT 

_  SURF  RAY 

LRAY  =  £WT 

all  rays 

passing  from  the 
boundary  into  zone  K 
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In  the  section  of  coding  prior  to  the  transport  calculations,  only  the 
quantities  ^SURF^  2  WT  are  calculated  (in  the  code,  PA,PR1,PB). 

Also  prior  to  the  transport  calculations,  the  Rosseland  mean  absorp¬ 
tion  coefficients  are  calculated  (ROSS(K))  for  each  hydro  zone,  and  the 
diffusion  flags  are  set.  If  a  zone  is  less  than  CLAMDA  (input)  mean  free 
paths  thick  or  is  inactive,  it  is  considered  "optically  thin;"  otherwise,  it 
is  labeled  "optically  thick"  (the  flags  occupy  the  ALAMV  array). 

The  two-dimensional  transport  calculation  section  is  based  around 
three  nested  loops:  the  "RAY-TAPE  RECORD  LOOP,"  the  "RAY  LOOP," 
and  the  "SEGMENT  LOOP."  The  input  storage  buffer  array  (XB  h  KXB) 
is  filled  with  a  logical  record  of  ray  data  from  the  ray  tape  which  contains 
data  from  traces  of  one  or  more  rays  constructed  in  SUBROUTINE  DRAW. 
The  "RAY  LOOP"  is  then  entered,  and  initialization  for  transport  begins 
for  each  r  ly  trace  in  the  buffer.  If  the  ray  traverses  a  totally  inactive 
region,  the  transport  calculations  are  skipped  and  the  next  ray  trace  in 
the  buffer  is  considered. 

In  general  two  "passes"  or  "transports"  are  performed  for  each 
ray  trace  supplied  by  DRAW.  The  first  pass  (IP ASS  =  1)  is  performed  by 
picking  up  zone  indices  from  the  array  KXA  in  an  increasing  manner,  and  the 
second  pass  (IP ASS  =  2)  is  performed  "backwards"  in  a  sense  to  the  first 
pass  along  the  same  ray  trace  supplied  by  DRAW.  If  the  ray  is  vertical 
(0=0,  NTER  =  -1),  only  one  pass  is  performed.  For  each  pass,  the  rate 
at  which  the  hydro  zones  are  gaining  energy  due  to  radiation  is  calculated 
(ER(K)),  the  rate  at  which  the  system  is  gaining  energy  through  its  bound¬ 
aries  is  calculated  (EBTM,  ETOP,  ESIDE),  the  total  rate  at  which  the 
system  is  gaining  energy  is  calculated  (FOO),  and  the  W2  array  is  updated. 
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In  the  "SEGMENT  LOOP , "  if  the  ray  enters  the  system  through  a 
black-body  boundary  the  rate  at  which  energy  is  transported  into  the  zone 
containing  its  first  segment  is  given  by 


eray 


/P3(I)\ 

l  PRI(J) l 


or 


PA(I)  / 


*WT 


RAY 


In  transporting  along  the  trace  of  a  ray,  the  diffusion  flag  of  the 
zone  in  which  its  next  segment  lies  is  checked.  If  the  zone  is  considered 
"thick,"  tlieu  all  the  energy/(DT)  transported  by  the  ray  is  emptied  into 
that  zone.  As  the  trace  continues,  no  deposition  c alculation  is  performed 
and  the  diffusion  flags  of  the  zones  are  checked  until  a  "thin"  zone  is 
encountered.  Then  the  rate  at  which  energy  is  leaving  the  last  "thick" 
zone  is  give  by 

eray  1  B(K»  •  XALP,K»  ■  wtra/ 


The  outside  of  the  system  is  treated  as  if  it  were  "thin."  For  a 
sequence  of  segments  in  "thin"  zones,  the  transport  is  calculated  in  the 
section  of  coding  labeled  "NORMAL  TRANSPORT  CALCULATION"  under 
the  equation 


eout 


+  Clc2(l  -  e ”<rS)  WT 


RAY 


where  EQUT 


<x 


c 


1 


=  rate  at  which  energy  is  leaving  zone  K  containing 
segment  length  s 

=  rate  at  which  energy  is  entering  zone  K  containing 
segment  length  s 

=  Rosseland  mean  absorption  coefficient  for  zone  K 
(ROSS(K)) 

=  XALP(K) 


2 

WT 


RAY 


B(K) 

weight  associated  with  the  ray 


s 


=  segment  length  in  zone  K 
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After  transport  calculations  have  been  performed  along  all  the  rays 
constructed  by  DRAW,  an  explicit  diffusion  calculation  is  performed 
across  all  "thick-thick"  zone  interfaces. 

At  the  end  of  SUBROUTINE  TRAN2,  the  ER  array  is  checked  to  see 
if  radiation  transport  in  time  DT  will  change  the  internal  energy  of  a 
hydro  zone  by  more  than  the  allowed  amount  (SLUG);  if  it  will,  DT  is 
reduced  in  TRAN2  so  as  to  comply  with  this  restriction.  Finally,  the 
internal  energy  of  the  system,  ETH,  is  updated  to  include  energy  changes 
by  radiation  transport,  and  the  variables  BACC,  SACC,  and  TACC  are 
updated. 

The  outside  loop  in  TRAN2  is  the  frequency  loop  wrtich  is  closely 
patterned  after  the  one  in  SPUTTER  (Ref.  5).  The  multifrequency  option 
has  never  been  tried,  however,  in  any  of  the  radiation  subroutines 
(TDRAD,  TRAN2 / LONG2 ,  and  TRAN2/SHORT2)  that  have  been  incorpo¬ 
rated  into  HECTIC. 

Input  to  TRAN7 

Results  '  fom  SUBROUTINE  DRAW  are  transferred  to  TRAN2 .  (See 
the  subsection  entitled  "Results  of  DRAW.  ") 

Error  Termination  in  TRAN2 


Type  Indicator  Description  of  Error 


INPUT 

SI 

7.0225 

MERGE  £  0  and  multifrequency 

problem 

INPUT 

SI 

= 

7.0235 

IHNU  <  1 

INPUT 

SI 

= 

7.0250 

Q  2  0.6  or  Q  ^  0,4 

INPUT 

SI 

= 

7.0320 

XA(K)  <  0. 

EXECUTION/ 

SI 

= 

7.0522 

An  indefinite  number  has  been  created 

INPUT 

before  the  call  to  DVCHK 

INPUT 

SI 

= 

7.0541 

There  are  more  than  210  ray  traces 

for  an  input  buffer -load  of  ray  data 
from  DRAW  (it  is  impossible  for  DRAW 
to  create  correctly  more  than  170  traces 
in  one  buffer -load) 
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In  transporting  along  a  ray,  NTER  is 
not  1,  2 ,  or  3 

NTER  =  1  and  BCBTAG  <  0. 

An  indefinite  number  has  been  created 
before  the  call  to  DVCHK 

IHNU  >  NHNU 

DT  <  FFB,  the  minimum  time -step 
control  _ 

Results  of  TRAN2  _ _ _ 

Medium  Variables  _ _ _ 

COMMON  (A  possible  contribution  to)DT 


(A  contribution  to)ETH 
ER  (K),  K=2  ,  KM  AX 
W2(I),  1=  1 ,  IM  AX 


TRAN2  Glossary 

FORTRAN 

Label 

Report 

Label 

Description 

AH 

None 

In  the  explicit  diffusion  calculation,  a  variable 
used  in  this  calculation  of  net  diffusion  in  the 
horizontal  direction 

AIX(K) 

None 

The  total  internal  energy  of  zone  K  per  unit 
mass  (does  not  include  kinetic  energy) 

(in  ergs/gm) 

AJ 

J 

In  tracing  a  ray  through  a  hydro  zone  of  the 
system,  the  rate  at  which  energy  is  being 
transported  into  or  out  of  the  zone 

(in  ergs/sec) 

AJN 

J 

Similar  in  function  to  AJ 

(in  ergs  /  ,  ec) 

INPUT 

INPUT 

EXECUTION/ 

INPUT 

INPUT 

EXECUTION 


SI  =  7.0550 

SI  =  7.0556 
SI  -  7.0810 

SI  =  7.1010 
SI  =  7.1068 
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ALAMV(K) 

None 

For  the  current  problem  cycle, 

ALAMV(K)  =  1  means  zone  K  is  optically  thick 
and  active 

ALAMV(K)  =  0  means  zone  K  is  optically  thin 
or  inactive 

AMX(K) 

None 

The  mass  of  zone  K 

(in  gm) 

ATHETA(I) 

e  „ 

out 

The  temperature  of  the  black-body  system 
boundary  adjacent  to  zone  (I.JMAX) 

(in  eV) 

(input  in  DRAW) 

AV 

None 

In  the  explicit  diffusion  calculation,  a  variable 
used  in  the  calculation  of  net  diffusion  in  the 
vertical  direction 

B(K) 

S 

cr 

In  the  monofrequency  calculation,  the  inte¬ 
grated  black-body  intensity  associated  with 
zone  K 

(in  - §1*8 -  j 

sec-steradian-cm^ 

None 

In  the  multifrequency  calculation,  temporary 
storage 

BACC 

None 

t'=t  (rate  at  which  energy  is  leaving  the 

C  system  bottom  boundary  due  to 

radiation)  dt' 


(in  ergs) 

Boundary  flags.  A,  B,  and  R  refer  to  top 


BCATAG 

Ncr*e  ) 

/  O  ’  '  Jr 

1  (above),  bottom,  and  side  (right)  system 

BCBTAG 

None 

| 

boundaries,  respectively.  If  0<  0,  boundary 
is  a  perfect  reflector;  otherwise,  it  is  tran6 - 

BCRTAG 

None  1 

(  mittive  to  radiation  (the  side  cannot  be  a 

reflector) 

BETA 

hvi 

"T 

In  the  multifrequency  calculation,  the  lower 
limit  of  the  current  frequency  band 
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BETAA(I)  None 


BETAB(I)  None 


BETAP 


^(weight  of  each  ray) 

all  rays  passing 
through  the  system 
boundary  adjacent  to 
zone  (I,  JMAX) 

(calculated  in  DRAW) 

^(weight  of  each  ray) 

all  rays  passing 
through  the  system 
boundary  adjacent  to 
zone  (1,1) 

(calculated  in  DRAW) 

In  the  multifrequency  calculation,  the  upper 
limit  of  the  current  frequency  band 


BETAR(J)  None 


BTHETA(I)  G 

out 


CLAMDA  cx 


DBGPRT  None 


DE  None 


^(weight  of  each  ray) 

all  rays  passing 
through  the  system 
boundary  adjacent  to 
zone  (IMAX,  J) 

(calculated  in  DRAW) 

The  temperature  of  the  black-body  system 
boundary  adjacent  to  zone  (1,1) 

(in  eV) 

(input  in  DRAW) 

Thick-thin  zone  criterion:  If  an  active  zone  K 
has  vertical  and  radial  dimensions  >  CLAMDA/ 
ROSS(K),  then  it  is  considered  optically 
thick;  otherwise,  it  is  considered  optically 
thin 

(in  number  of  mean  free  paths/ 

(input  in  DRAW) 

The  debug  print  control;  I  DBGPRT  I  2  10"^® 
means  debug  desired;  otherwise,  debug  print 
not  desired 

In  calculating  DT  in  TRAN2,  the  amount  of 
energy  per  unit  mass  which  a  zone  will  lose 
or  gain  in  time  DT  due  to  radiation 

(in  ergs/gm) 
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DERH 

In  the  explicit  diffusion  calculation,  the  net 
diffusion  rate  in  a  horizontal  directio  . 
between  zones 

(in  ergs /ssc) 

DERV 

• 

Ea 

In  the  explicit  diffusion  calculation,  the  net 
diffusion  rate  in  a  vertical  direction  between 
zones 

(in  ergs  /sec) 

DFB 

None 

In  the  multifrequency  calculation, 

BETAP  3 

If  "  «u 

*  •'BETA  eU-l 

DHNU 

None 

In  the  multifrequency  calculation,  the  width 
of  the  current  frequency  band 

DT 

None 

Time  step  (which  can  be  controlled  by 

TRAN2 ) 

(in  sec) 

DTEMP 

None 

Temporary  storage 

DX(I) 

r.  -  r.  , 

X  1-1 

Radial  zone  length  of  zones  (I,J),  J  =  l,  JMAX 

DY(J) 

z.  -  z.  . 

J  J-l 

Vertical  zone  length  of  zones  (I,  J ),  1=1 ,  IMAX 

E 

None 

In  the  temperature  iteration  calculation,  the 
total  internal  energy  per  unit  mass  updated  by 
radiation  heating  only 

(in  ergs/gm) 

EBTM 

None 

The  rate  at  which  energy  is  entering  the 
system  through  the  system  bottom  boundary 
in  time  DT  due  to  radiation 

(in  ergs/sec) 

EMB1 

None 

In  the  multifrequency  calculation,  temporary 
storage 

EMB2 

None 

Same  as  above 

ER(K) 

None 

The  rate  at  which  zone  K  ir  gaining  energy 
due  to  radiation  in  time  DT 

(in  ergs/sec) 
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None 

In  the  multifrequency  calculation,  temporary 
storage 

ESIDE 

None 

The  rate  at  which  energy  is  entering  the 
system  through  the  system  side  boundary  in 
time  DT  due  to  radiation 

(in  ergs / sec) 

ESS 

None 

Temporary  storage  used  in  the  normal 
transport  calculation" 

ETH 

None 

The  total  energy  in  the  system  at  time  T 

(in  ergs) 

ETOP 

None 

The  ri  te  at  which  energy  is  entering  the 
system  through  the  system  top  boundary  in 
time  DT  due  to  radiation 

(in  ergs/sec) 

FACTOR 

None 

Temporary  storage  used  in  the  calculation  of 
ROSS(K)  and  PLANCK(K) 

FFB 

None 

The  minimum  time -step  allowed  by  HECTIC 

(in  sec) 

FIOUT 

None 

a  OLDTH 

Saved  temporarily  on  disk  in  DRAW  and 
restored  at  the  end  of  TRAN2 

FOO 

None 

The  amount  of  energy  gain  by  the  system  in 
time  DT  due  to  radiation 

(in  ergs) 

GG 

None 

A  dummy  argument  in  the  call  to  ES  in  TRAN2 

HNU 

hv 

In  the  multifrequency  calculation,  the  lower 

1 

frequency  of  the  current  frequency  band 

(in  eV) 

HNU4 

None 

=  HNU4. 

HNUP 

hvz 

In  the  multifrequency  calculation, the  upper  fre 
quency  of  the  current  frequency  band. 

(in  eV) 

HNUP4 

None 

=  HNUP4. 

I 

None 

A  running  index. 
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IACT 

None 

An  activity  flag: 

IACT  =  1  means  all  the  zones  traversed  by 
a  ray  constructed  in  DRAW  are 
inactive,  and  no  transport  i6  performed 
IACT  =  2  means  some  or  all  of  the  zones  tra¬ 
versed  by  a  ray  constructed  in  DRAW 
are  active,  and  transport  is  performed 

IDY 

None 

Running  index  of  the  segment  loop  for  a  ray 
trace 

IGRP 

None 

Running  index  of  the  ray -trace  loop 

IGWD 

None 

In  tracing  a  ray  within  the  ray  -tape  record 
loop,  a  pointer  to  the  end  of  the  ray  data  in 
the  input  storage  array  XB(=KXB)  for  the 
current  ray 

IHNU 

None 

In  the  multifrequency  calculation,  the  index 
of  the  current  frequency  band 

U 

None 

A  running  index 

IMAX 

i 

max 

The  number  of  radial  hydro  zones 

IP  ASS 

None 

In  transporting  along  a  ray, 

IP  ASS  =  1  means  transport  is  being  performed 
along  a  ray  in  a  direction  specified  by 
the  increasing  order  of  zone  indices 
specified  in  the  KXB  array 

IP  ASS  =  2  means  transport  is  in  the  opposite 
direction  to  that  of  IP  ASS  =  1 

IS  END 

None 

An  error  flag  used  by  SUBROUTINE  EDIT 

ITAG 

None 

Flag  for  the  temperature  iteration  calculation: 

=  0  means  perform  temperature  iteration 
*  0  means  do  not  perform  temperature 
iteration 

ITOT 

Noi  r 

In  transporting  along  a  ray ,  the  number  of 
hydro  zones  that  a  ray  penetrates  in  one  pass 
through  the  system 

ITR 

None 

In  transporting  along  a  ray  in  the  ray  segment 
loop,  the  pointer  to  the  location  in  the  KXA 
(=XA)  array  containing  the  current  zone  index 
(ITR+400  points  to  the  location  in  the  XA(=KXA) 
array  containing  the  corresponding  ray  seg¬ 
ment  length) 
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J 

None 

A  running  index 

JMAX 

^max 

The  number  of  vertical  hydro  zones 

K 

None 

A  running  index 

KDMY 

None 

Argument  returned  by  the  calls  to  FUNCTION 
D7CHK: 

1  means  an  error 

=  2  means  no  error 

KFIT 

None 

An  array  constructed  by  HECTIC  such  that: 

JMR(KFIT (K),  2 )  =  1  means  zone  K  is  active 

J  MR  (KFIT  (K),  2)  *  1  means  zone  K  is  inactive 

KMAX 

None 

KMAX  -1  is  the  total  number  of  hydro  zones 
in  the  system 

KM  AX  A 

None 

KMAX-t-1 

KOLD 

None 

In  transporting  along  a  ray  in  the  ray-segment 
loop,  the  index  of  the  zone  which  contains  the 
previous  ray  segment 

KPP 

None 

In  the  explicit  diffusion  calculation,  the  index 
of  the  zone  above  zone  K 

KSTRT 

None 

In  transporting  along  a  ray,  the  index  of  the 
first  hydro  zone  which  the  ray  intersects  upon 
entering  the  system 

KT 

None 

A  running  index 

KXA 

None 

=  XA.  In  transporting  along  a  ray,  the  storage 
array  which  contains  the  ray  data  for  the 
current  ray.  KXA(K)  contains  the  index  of 
the  hydro  zone  pierced  by  the  ray  (the  corres¬ 
ponding  ray  segment  length  is  contained  in 
XA(K+400)) 

KXB 

None 

=  XB,  The  input  storage  buffer  array  for 
DRAW  ray  data  (contains  tracss  of  one  or 
more  rays) 

M 

None 

Not  used 

MERGE 

None 

In  the  multifrequency  calculation,  a  variable 
controlling  the  merging  of  frequency  bands 

AFWL-TR -67-131,  Vol  II 


MFTAG 

None 

Multifrequency  flag: 

=  0  means  monofrequency  problem 
*  0  means  multifrequency  problem 

N 

None 

Not  used 

NC 

None 

Integer  value  of  cycle  number 

NGRP 

None 

The  nvmber  of  ray  traces  in  the  current 
buffer -load  of  ray  data  (XB  =  KXB) 

NGWD 

None 

The  number  of  words  in  the  current  buffer -load 
of  ray  data  (XB  =  KXB) 

NHNU 

None 

In  the  multifrequency  calculation,  the  total 
number  of  frequency  bands 

NTER 

None 

NTER  =  (1/2/3)  indicates  that  a  ray  "enters" 
(depending  on  the  pass)  the  system  through 
the  (bottom/side/top)  boundary 

NVEZ 

None 

In  the  temperature  iteration  calculation,  the 
temperature  iteration  counter 

NX  IT 

None 

NXIT  >  0 

NXIT  =  (l/2/3)  indicates  that  a  ray  "leaves" 
(depending  on  the  pass)  the  system 
through  the  (bottom/side/ top)  boundary 

NXIT  <  0  means  6=0  trace 

NY 

None 

Not  used 

OLDTH 

None 

s  FIOUT 

In  the  temperature  iteration  calculation, 
temporary  storage 

P 

None 

=  PLANCK.  Saved  temporarily  on  disk  in 

DRAW  and  restored  at  the  end  of  TRAN2 

PA(I) 

None 

The  rate  at  which  energy  is  entering  zone 
(I,JMAX)  along  a  ray  from  the  adjacent  black- 
body  system  boundary  at  temperature 

ATHETA(I),  divided  by  the  weight  WT  of  the 
ray 

(in  ergs/ sec) 
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PB(I) 


PI 

PLANCK(K) 


PRI(J) 


PUR 

PUZ 

Q 


ROSS(K) 

RPTAG 


None  The  rate  at  which  energy  is  entering  zone  (1,1) 

along  a  ray  from  the  adjacent  black-1  dy 
system  boundary  at  temperature  BTHETA(I), 
divided  by  the  weight  WT  of  the  ray 

(in  ergs/sec) 

IT  TT 

None  In  transporting  along  a  ray  through  hydro  zone 

K,  the  rate  at  which  energy  is  entering  zone  K 
from  the  zone  previously  traversed 

(in  ergs  /sec) 

Also,  the  PLANCK  mean  opacity  across  the 
merged  frequency  band 

(in  1/cm) 

None  The  rate  at  which  energy  is  entering  zone 

(IMAX.J)  along  a  ray  from  the  adjacent 
black-body  system  boundary  at  temperature 
RTHETA(J),  divided  by  the  weight  WT  of  the 
ray 

(in  ergs/sec) 

None  Not  used 

None  Not  used 

None  In  the  calculation  of  DT  in  TRAN2 ,  the  amount 

by  which  the  internal  energy  per  unit  mass  of 
a  zone  is  allowed  to  change  due  to  radiation 
transport 

(in  ergs/gm) 

Also,  in  the  multifrequency  calculation,  a 
parameter  used  in  the  merging  of  frequency 
bands 

a  The  Rosssland  mean  absorption  coefficient 

for  zone  K 

(in  1  /  cm) 

None  Absorption  coefficient  flag: 

*0  means  set  the  Planck  mean  absorption 
coefficient  equal  to  the  Ross  eland  mean 
absorption  coefficient 

=  0  means  keep  both  absorption  coefficients 
distinct 
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RTHETA(J) 

e  „ 

out 

The  temperature  of  the  black-body  system 
boundary  adjacent  to  zone  (IMAX.J) 

(in  eV) 

(input  in  DRAW) 

RUR 

None 

Not  used 

RUZ 

None 

Not  used 

SI 

None 

Error  flag  for  EDIT 

SACC 

None 

t'=t  (rate  at  which  energy  is  leaving  the 

J  system  bottom  boundary  due  to 

t'=0  radiation)  dt' 

(in  ergs) 

SIGS 

None 

Temporary  storage 

SLUG 

None 

In  the  calculation  fo  DT  in  TRAN2,  the  fraction 
by  which  the  internal  energy  per  unit  mass  of 
a  zone  is  allowed  to  change  due  to  radiation 
transport 

SV 

None 

Temporary  storage 

T4 

None 

In  merging  frequency  bands,  =  THETA(K)4 

(in  eV4) 

TACC 

None 

t'=t  (rate  at  which  energy  is  leaving  the 

f  system  top  boundary  due  to  radia- 

t'=0  tion)  dt' 

(in  ergs) 

TAU(I)  Tr(r.2 

i 

-ri-l2) 

The  area  of  the  annulus  defined  by  radial 
hydro  interval  I 

(in  cm2) 

TEMP(l) 

None 

In  changing  DT  in  TRAN2,  the  computed 
fraction  by  which  DT  is  reduced  to  comply 
with  the  restrictive  variable  SLUG 

THETA(K) 

6 

Temperature  of  zone  K 

(in  eV) 
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THTAMX 

None 

In  the  multifrequency  calculation,  the  highest 
temperature  in  the  system  used  in  deciding 
whether  to  merge  frequency  bands 

(in  eV) 

U 

None 

=  ROSS.  Saved  temporarily  on  disk  in  DRAW 

and  restored  at  the  end  of  TRAN2 

V 

None 

=  KXA  =  XA.  Saved  temporarily  on  disk  in 

DRAW  and  restored  at  the  end  of  TRAN2 

VEZ 

None 

Not  used 

W2(I) 

None 

The  rate  at  which  energy  is  leaving  the  syster 
top  boundary  adjacent  to  zone  (I.JMAX)  due 
to  radiation,  divided  by  TAU(I) 

(in  ergs/cm^  sec) 

WT 

OJ 

1 ,  m,  n 

The  weight  associated  with  a  given  ray  (see 
"DRAW  Glossary"). 

X(I) 

r 

l 

Outer  radius  of  radial  hydro  zone  I 

(in  cm) 

XA 

None 

=  KXA  (see  KXA) 

XALP(K) 

4irA 

=  2*TAU(I)*Ay*Tr/ 53  (length  of  ray  in  zone  K) 
all  rays  ^(weight  WT  of  ray) 
pas  sing 
through 
zone  K 

XB 

None 

=  KXB .  (see  KXB) 

Y(J) 

z. 

J 

The  vertical  coordinate  of  the  upper  boundary 
of  hydro  zones  (I,  J),I=1,IMAX 

(in  cm) 
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SECTION  V 

THE  VIEW-FACTOR  METHOD 


INTRODUCTION 

The  view -factor  method  is  proposed  as  an  economical  method  for 

calculating  radiative  transport  of  energy  in  situations  where  diffusion  theory 

is  inapplicable  and  higher-order  methods  are  unfeasible.  The  problem  of 

distributing  rays  does  not  exist  because  the  concept  of  rays  as  characteristics 

is  not  used.  A  procedure  for  interpolating  the  source  strength  between  zone 

centers  that  is  consistent  witn  diffusion  theory  is  a  feature  of  the  method. 

Let  Z  be  a  hydro  zone  in  HECTIC  and  let  B  ,  b  =  1,2, 3, 4,  denote  its 

b 

boundaries.  The  sphere  of  directions  of  rays  passing  through  any  point  of 

the  system  is  partitioned  into  bundles,  called  "cones"  and  denoted  by 

C  ,  a  =  1,2,...,  A.  Currently,  the  assignment  of  directions  to  cones  at 

various  points  is  the  same  for  all  points  of  the  system  relative  to  the  local 

coordinate  system.  This  means  that  if  at  point  P  a  direction  with  axial 

projection  p  and  azimuth  c}>  is  in  cone  C  ,  then  at  any  other  point,  say  Q, 

a 

the  direction  with  the  same  axial  projection  and  azimuth  is  also  in  cone  C^. 
Cones  are  to  be  constructed  so  that  the  rays  of  a  cone  are  all  rising  or  all 
descending  and  all  approaching  or  all  receding  from  the  axis  as  they  pass 
through  the  vertex.  The  function  of  this  restriction  is  to  ensure  that  if  one 
ray  in  cone  C^  with  vertex  P  on  enters  Z  at  P,  then  all  rays  of  that 
cone  do  the  same.  The  specification  of  cones  used  in  SHORT2  is  discussed 
in  the  next  subsection. 

The  basic  construct  of  the  view-factor  method  is  an  object  called 
a  "fan."  The  fan  F  consists  of  all  rays  that  intersect  boundary  B,  of 

3.>  D  D 

zone  Z  aud  belong  to  the  cone  C  with  vertex  at  the  point  of  intersection. 

If  fan  k  leaves  zone  Z  through  boundary  B^  and  fan  F&|  ^ 


enters  zone  Z 
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through  boundary  B  ,  then  the  view  factor  r)  t  is,  roughly,  the  ratio 

b '  a  ,  b ,  a ' ,  b 

of  the  number  of  rays  in  fan  F  ,  .  to  the  number  that  are  in  both  fans. 

a  ,  b 

(Rays  that  leave  and  reenter  zone  Z  while  passing  from  B,  .  to  B,  are  not 

b  b 

counted.  )  The  meaning  of  "number  of  rays  in  fan"  is  straightforward: 
the  number  of  rays  passing  through  an  element  of  surface  dS  with  directions 
lying  in  an  infinitesimal  cone  of  solid  angle  dfi  that  makes  an  angle  0  with 
the  normal  to  the  surface  is  N  cos  9  d  ft  d  S,  where  N  is  the  density  of 
rays,  which  is  assumed  to  be  constant  over  the  system. 

To  illustrate  the  concepts  "fan"  and  "view  factor,  "  let  Z  be  a  HECTIC 
hydro  zone  consisting  of  those  points  of  the  system  with  radii  lying  in  the 
interval  r^  <  r  <  r^  and  aptitudes  lying  in  the  interval  z^  <  z  <  z^.  Let  B^ 
and  B^,  denote,  respectively,  the  inner  and  outer  boundaries  of  Z.  For 
any  point  P  on  the  cylinder  r  =  r^,  let  the  cone  C^  with  vertex  at  P  consist 
of  those  rays  through  P  with  axial  projections  in  the  range  fx^  >  p  >  that 
intersect  the  cylinder  r  =  p  but  not  the  cylinder  r  =  p  ,  where  p  <  p  <  r, 

I*  1  1  ”■  L 

and  that  are  going  inward  as  they  pass  through  P.  Then  the  fan  F 

SL  t  D 

consists  of  all  rays  that  intersect  B^  going  inward,  that  have  axial  projection 


in  the  range  fx^  >  fx  >  fx^,  an<^  ^at  *ntersect  t^le  cylinder  r  =  p^  but  not 

cylinder  r  =  p..  The  number  of  rays  in  fan  F  ,  is 
1  a,  b 


the 


N 


2irr  N 
1  o 


J*2  2  2  2 

/  /  (1  -  H  )  cos  <j)  d<J)dp 

Ju  \ 


*1  T1 

where  r^  sin  =  p^.  For  any  point  P'  on  the  cylinder  r  =  r^,  let  the  cone 
C  ,  with  vertex  at  P'  consist  of  those  rays  through  P'  with  axial  projections 
in  the  range  #x  >  fx  >  #x  that  intersect  the  cylinder  r  =  p'  but  not  the  cylinder 
r  =  p^,  where  p^  <  p^  <  p^  <  p^  <  ,  and  that  are  going  inward  as  they 

pass  through  P'.  The  fan  F&,  consists  of  all  rays  that  intersect  B^, 
going  inward,  that  have  axial  projection  in  the  range  fx^  >  fx  ">  and  that 
intersect  the  cylinder  r  =  P^  but  not  the  cylinder  r  =  pj.  Let  N1  be  the 
number  of  rays  in  fan  F  ,  ,  and  let  M  be  the  number  of  rays  common  to 

Si  y  D 

both  fans,  i.  e.  ,  the  number  of  rays  that  intersect  both  B^  and  B^,  going 
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inward,  that  have  axial  projections  in  the  range  >  n  >  and  that 

intersect  the  cylinder  r  =  p  but  not  the  cylinder  r  =  p'.  Then  n 

c  1  a,  b,  a  ,  b1 

M/N'  is  the  view  factor  connecting  the  two  fans. 

Two  properties  of  view  factors  follow  from  the  definition: 


£ 

a,b 


n  ,  *  -  *  —  1 

a,b;  a1  ,b' 


(135) 


and 

2  \b;  a',b'  ka' ,b'  =  ka,b  (136) 

a'  ,b' 

where  k  is  the  number  of  rays  in  fan  F 

a,b  a,b 

Suppose  that  zone  Z  is  filled  with  material  having  the  absorption 

coefficient  tr,  and  hst  J  be  the  amoi.nt  of  radiant  energy  crossing  bound- 

a,  d 

arY  B,  along  rays  in  fan  F  .  Then  the  view-factor  method  estimates  J 

b  a,b  a,b 

using  the  formula 


-crt 


J  .  =  e 
a,b 


a,b 


a',b 


tv  ,  .  ,  |  J  ,  ,  ,  +  S  , 

,  'a,b;  a'  ,b'  a'  ,b'  a,b 


(137) 


where  ^  is  the  rate  at  which  energy  radiated  in  zone  Z  leaves  through 

boundary  B  along  rays  in  fan  F  ,  and  t  ,  is  an  average  distance  traveled 
d  a,b  a,  b 

by  rays  in  fan  F  •  ,  in  traversing  zone  Z.  The  rate  of  energy  deposition  in 

cl|  D 

zone  Z  is  then  calculated  to  be 


E  =  /  ,  ±  J 
a,b 


a,b 


-(138) 


where  the  +  sign  is  used  if  fan  F  enters  zone  Z  through  boundary  B  and 

a,b  b 

the  -  sign  is  used  if  it  leaves. 
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It  will  be  shown  later  that  when  J  is  given  for  incoming  fans 

cl  p  D 

associated  with  the  outer  boundary  of  the  system,  then  all  others  may  be 
determined  by  a  systematic  application  of  Eq.  (137). 

Some  of  the  principal  advantages  of  the  method  are  as  follows: 

1.  The  equations  can  be  solved  by  a  straightforward,  noniterative 
method. 


2.  The  coefficients  may  be  chosen  so  that  the  diffusion  limit  is 
approached  in  a  continuous,  natural  manner. 

3.  The  coefficients  are  all  positive.  Rapid  variation  of  intensity 
with  direction  causes  no  problems,  and  negative  fluxes  cannot 
occur. 


While  the  view-factor  method  allows  much  latitude  in  the  assignment 

of  directions  to  cones,  a  simple,  rather  uneconomical  scheme  has  been 

chosen  for  the  first  version  of  SHORT2  described  here.  For  some  fixed 

positive  integer  M,  the  sphere  of  directions  at  each  point  P  of  the  system 

is  divided  into  cones  C  ,  1  <  l,m  <  2M,  consisting  of  those  directions  fi 

I,m 

for  which 


1-1  ,  TT  £ 

IT  -  <  m  <  - 

2M  "  2M 


(139) 


cos 


> 


cos 


tt  m 
2M 


where  <j>  is  the  azimuth  and  p  the  axial  projection  of  the  ray  passing 
through  P  in  direction  fi  .  As  in  the  long-characteristic  method,  the  hemi¬ 
sphere  of  directions  of  negative  azimuth  is  ignored.  The  main  disadvan¬ 
tage  to  this  type  of  subdivision  is  its  lack  of  uniformity;  the  cones  which 
are  more  or  less  vertical  have  smaller  solid  angles  than  do  the  horizontal 
zontal  ones. 
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A  scheme  due  to  Carlson  (Ref.  6)  that  yields  a  set  of  cones  of  equal 

solid  angle  is  as  follows.  With  M  as  before,  let  l  =  u  >  u,  •••  >  u  =0 

o  rl  rM 

and  let 


M- 


m-1 


-  v- ,) 

m  1 


Thus 


or 


M 


m- 


1 


m 


=  |  M(M  +  1)  (1  -  |x1) 


For  M  <  m  <  2M,  let 


2 

M(M  .+  1) 


2M-m 


V- 


m 


Then,  for  I  <  2m  <  2M,  let 


4> 


TT  f 

f  ,m  2m 


to  be  those  directions  fi  for  which 


(1< 


(14 


(14; 


(14: 


and  define  cone  C 
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If  M  <  m  <  2M,  let  m'  =  2M  -  m  +  1;  and  for  I  i  2m',  define  cone  C. 

( .in 

to  be  the  reflection  of  C.  in  a  horizontal  plane  through  P  Thus, 

l  ,m 


<$>  £  4*  £  <£ 

1-1  ,m'  f  ,m' 


(145) 


P  £  p  £ 
m 


P 


m  - 1 


These  cones  all  subtend  the  same  solid  angle  because 


A  fl  =  ApA4> 


*  m"  ■  “t1  *77 


TT 

M(M~ T“l) 


for  m  <  M  and  similarly  for  m  >  M.  Figure  4  shows  how  the  octant 
0  £  p  £  1  ,  0£<J><YTris  subdivided  when  M  =  4  in  a  projection  in  which 
meridians,  4>  =  const,  become  concurrent  lines  and  parallels,  p  =  const, 
become  parallel  lines. 


Figure  4,  Subdivision  of  an  Octant  of  the  Sphere  of  Directions 
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THE  MODIFIED  DEFINITION  OF  FAN 

The  definition  of  fan  given  previously  is  precise  but  more  restrictive 
than  desii able  or  necessary.  Basically,  (1)  a  fan  is  a  set  of  rays  that  cross 
some  associated  zone  boundary  in  directions  that,  at  the  point  of  crossing, 
have  roughly  the  same  axial  projection  and  azimuth,  and  (2)  fans  associated 
with  a  given  zone  boundary  are  nonoverlapping.  The  particular  method 
used  in  SHORT2  for  assigning  rays  to  fans  is  a  very  slight  modification  of 
the  one  already  described.  It  leads  to  fewer  terms  in  the  summation  of 
Eq.  (137)  and  simplifies  the  problem  of  estimating  view  factors.  Only 
those  fans  associated  with  horizontal  boundaries  are  affected.  The  fan  F 
associated  with  cone  C  and  boundary  BA.  .  consists  of  those  rays  which 

ij 

intersect  BA.  .  and  which  cross  the  cylinder  r  =  r.  in  cone  C  .  Since 
1*J  i  1  ,m 

each  ray  that  penetrates  that  cylinder  crosses  it  twice,  there  is  an 

ambiguity  to  be  resolved;  if  C,  points  [  mward  ]  then  r  of  F  c 
-.  ...  .  / inward  \  ,  ^outward/ 

BAi j  whlle  going  I  outward  )•  The  fan  associated  with  vertical  zone  boundary 

BR  and  cone  C.  is  still  the  set  containing  any  ray  that  intersects  BR 
*#xn 

at  a  point  where  its  direction  is  in  cone  C, 

t,m 

It  will  prove  convenient  to  have  a  more  compact  notation  available  for 
the  ensuing  considerations.  Let  q  denote  an  index  combination  for  fans,  and 
let  F  be  the  fan  associated  with  cone 

q 

C  =  C. 

*1  £o'mn 

q  q 


and  bounda  ry 


B  =  BX\  . 

q  i  j_ 
q  q 


where  =  A  or  R.  (BA.  =  BB.  ..)  Let  Z1  denote  the  zone  that  the 

i.O  i,l  q 

rays  of  fan  F  enter  as  they  cross  B  ,  and  let  Z°  denote  the  zone  thev 
q  q  q  y 

leave.  Equation  (137)  in  this  notation,  becomes 
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J  = 

q 


(146) 


where  J  is  the  rate  of  transfer  of  radiant  energy  across  boundary  B 
q  4 

along  rays  of  fan  F  ,  and  Sq  is  the  rate  at  which  energy  radiated  in  zone 

Z°  crosses  boundary  B  along  rays  of  fan  F  . 

q  q 

The  View-Factor  Integral 

Let  k  denote  the  number  of  rays  in  fan  F  ,  assuming  that  the 

q'  q 

density  of  rays  is  unity.  Then 


k 

q 


I 


dS 


147) 


where  the  surface  integral  extends  over  B^,  and  for  each  point  on  B^,  ,  the 

direction  integral  extends  over  directions  in  cone  C  and  n  is  a  unit 

*i  o 

vector  normal  to  B  .  If  F  is  another  fan  and  if  Z  =  Z  (i.e.,  if  the 

q'  q  q  4 

zone  that  F  enters  through  Bq,  is  the  zone  F^  leaves  through  B^,  ),  then 


12  .  n  dfi  dS  (148) 

F  OF  , 

q  q 

where,  for  each  noint  P  on  B  ,  ,  the  direction  integral  now  extends  over 

q 

directions  of  rays  through  P  that  are  common  to  both  fans. 

Estimat  r,q  of  the  View  Factors 

In  principle,  the  view  factors  can  be  calculated  using  Eq.  (148).  Such 
a  procedure  involves  performing  a  four-fold  integral,  two  of  which  are  not 
at  all  trivial.  Evaluating  such  integrals  for  each  pair  of  fans  would  consume 
much  more  time  than  can  be  justified  by  the  application  fo-  which  the 
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results  are  intended.  The  current  version  of  the  DRAW  subroutine  of 

SHORT?,  estimates  view  factors  on  the  assumption  that  r’l  directions  R  in 

cone  Ct  have  the  same  projection  p  ,  on  the  axis  of  the  system, 

I  ,m  m- 1  1 

where  p  <  p  .  <  p  which  eliminates  one  of  the  two  troublesome 

m  m-  £  m- 1 

integrals.  The  problem  of  how  t}  optimize  the  choice  of  p  has  not 

m- A 

yet  received  any  attention.  The  currently  used  choice  is 


co  s 


2m  -  1 
4M 


which  is  the  cosine  of  the  polar  angle  half-way  between  the  polar  angles 
whose  cosines  ire  ^  and  .  Equations  (14?)  and  (148)  are  thus 

replaced  by 


k  = 

q 


dS 


where  6 

q 


-1 


p  and 
m 

q 


(149) 


'q.q' 


u>(P) 

■  /  ■ 
•/BqI  Ja(P) 


R  •  n  d<*>  dS 


(150) 


^owerj  on  the  azimuths  of  rays  through  P  that 


'■•''.ere 

have  axial  projection  p 


m-£ 


and  belong  to  both  fans. 


If  F  is  the  fan  associated  with  cone  C,  and  a  vertical  zone 

q  f,m 

boundary  of  radius  r  and  axial  height  h,  then 

2  A 

k  =  2rrrh  6  (1  -  p  ,)2  (sin  4>,  -  sin  <)>,  ) 

q  q'  m-£'  Tf  Kf-1 


(151) 


On  the  other  hand,  let  the  zone  boundary  associated  with  F  be  a  horizontal 

q 

one  with  inner  radius  r^  ^  and  outer  radius  r..  As  a  point  passes  through 
the  system  along  a  ray  with  direction  R,  the  distance  r  of  the  point  from 
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the  axis,  the  azimuth  <f>  of  n,  and  the  distance  a  of  the  ray  from  the  axis 
satisfy  the  relation  r  sin  <f>  =  a.  {See  Fig.  5.  )  It  follows  that  the 
azimuth  <f>  of  a  ray  of  F^  will  range  between  arcsin  (r.  sin  ^)/r  and 
arcsin  (r^  sin  4>^)/r  A  +  1  at  a  distance  r  from  the  axis.  (Here  a  A  b  is 


Figure  5.  The  Dependence  of  <f>  on  r 


the  lesser  and  a  v  b  is  the  greater  of  the  two  quantities  a  and  b.)  It  is 

assumed  that  r  >  r.  sin  <i> .  , ,  for  otherwise  no  ray  of  F  will  come 

l  £-1  q 

within  a  distance  r  of  the  -jcis.  The  appropriate  form  for  k  is  thus 

q 


k 

q 


vr .  sin<f>  .  , 

i  £-1 


2 


tt  r 


m- 


1 

2 


-  arcsin 


r 


dr 


(152) 


assuming  that  <b  <  (1/2)  tt  .  When  <j>  ^  >(1/2)tt,  the  equation  is  still 
correct  provided  that  the  appropriate  branch  of  the  arcsine  is  used.  In 
order  to  write  a  formula  for  k  in  terms  of  elementary  transcendental 

functions,  let  a.  =  r.  sin  <(>  and 

£  i  £ 


wmmarxm 
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ff(r)  = 


/ 


arcsin  — -  dr' 
r' 


—  arcsin 
2  r 


Then 


k  =  2irp  6  If  (r.)  -  f  (r.  )  -  f  (r.)  +  f  (r.  )1 

q  m-£  q|_  £'  i  £'  i-l  £-ll  i  £-ll  i-l'J 


when  r.  >  a.  and 
i-l  £ 


k  =  2  TTfJ. 


m-i 


6n[f.<rJ  "  T<r:  iVa 


q  £ 


i-l  £-1 


)2  -  f 


£-1 


.  -  v  a 

i-l'  i-l  £ 


q 

when  r 

As  is  true  of  many  geometrical  problems,  the  calculation  of  the 


<>] 


<  a  . 
i-l  £ 


coefficients  rj  requires  the  consideration  of  many  special  cases.  Let  F 

q1 

and  F  be  a  pair  of  fans  for  which  Z  ,  =  Z  =  Z.  ..  Note  that  ri  =0 

q  q’  q  hj  q.q' 

unless  m^  =  m^(  ,  because  p  does  not  change  as  a  point  travels  along  a 
ray.  Consequently,  let  m  be  given  and  assume  that  m  =  m  =  m  ,  .  Also, 

q  q 

denote  p  simply  by  p  and  0  by  </)  .  Further,  let  p  =  </>.-  <f>. 

m-  £  £ ,  m  £  £  £-1 

so  that  0  =  £ p  and  i  p  =  tt  where  £  denotes  the  maximum  value 
£  max  max 

of  £.  Denote  £  simply  by  £  and  £  ,  by  £'  .  Let  h  =  z.  -  z.  . 

q  q'  3  J-l 

Consider  first  those  cases  in  which  the  rays  of  fan  F  ,  enter  zone 

q' 

Z^  .  through  its  outer  curved  boundary  BR^  Then  the  integral  for  the 
view  factor  r\  has  the  form 

q.q 


q.q' 


2  tt  r.(l  -  p2)56q 

k  , 
q 


"(i) 


If 

O  a((,) 


cos <t>  d <f>  d£ 


(153) 


where  C  refers  to  the  distance  between  the  point  P  on  BRi  .  and  the  top 

edge  of  BR.  .  and  |  )  is  the  j  u.pper  \  koun(j  Qn  azimuths  of  rays 

i,J  \»(4)/  \ lower  f  7 

through  P  belonging  to  both  fans.  Thus,  one  obtains 
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2  tt  r  (1  -  fj.2)2  6 

n  =  1  q' 

q.q'  k  " 

q' 


/  h  w(C)  -  sin  o(  £  )J  d  ;  (l 


54) 


Outside -to -Inside.  Let  the  rays  common  to  fans  F  and  F  f  enter 
Z.  j  through  the  outside  boundary  and  leave  through  the  inside  boundary. 

Rays  belonging  to  fan  F  leave  Z  at  _  _  „  ...  .  , 

-  ri-l  W1^  azi**iuths  in  the  range 


(f-l)p<  <f><  Ip,  which  means  that  at  r  = 

azimuths  fall  in  the  range 


r£  >  where  they  enter,  their 


ri_l  sin(  i  -  l)p 
arcsin  - - - -  <  ^,< 


arc  sin 


r.  .  sin  fp 
l-l 


(See  Fig.  6.  )  Consequently,  the  azimuths  of 
fall  in  the  range 


rays  common  to  F  and  F 


(«'  -  i)p  v  arcsin - -J— - t  $  j,  p  A  arcsin-^'1  —  — 


It  remains  to  determine  which  rays  in  F  leave  zone  Z.  .  through  the 

inside  boundary.  Assume  that  p  >0  so  that  the  rays  havVau  upward 
component,  and  let 


2  * 

T  =  tan  arccos  H  =  (1  -  H  )% 

which  is  the  tangent  of  the  angli  between  the  ray  and  the  axis.  Then  T 
will  be  the  horizontal  distance  that  a  point  goes  when  it  rises  by  an  amount 
£  along  a  ray  having  an  axial  projection  of  p. 
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Figure  6.  Determination  of  7 


Therefore,  a  ray  of  fan  F  that  enters  zone  Z.  .  through  BR  at  a  point 

<1  i»J  i,j 

£  below  the  top  will  leave  through  the  inside  boundary  r  =  r.  ^  provided 

that 


cos  4>  > 


2  fZ  2  2 

r.  +  b  t  _r.  , 
_i _  l-l 

2  r^  £t 


where  d>  is  its  azimuth  at  the  outside  boundary  r  -  r.,  assuming  that 

.  .2  ^  2  2  2  2 

(ri  '  ri.i)  <  *  T  <  ri  -  ri.i 


^  ^  T  ^  ri  ”  rj  i’  ^en  the  ray  will  leave  through  the  top  or  outside 

regardless  of  its  incoming  azimuth;  and  if  ;  T  >  (r f  -  r  )*,  then  it  wil 

leave  through  the  inside  whenever  sin  4>  <  r.  Jr..  All  this  can  be  sum- 

l-l  l 

marized  by  saying  that  the  ray  through  BR.  at  a  point  £  below  the  top 
will  leave  through  the  inside  only  if  $  <  y  (r  ),  where 
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It  follows  that 


0,  if  i  r  <  r.  -  r.  j 


y  XU) 


.  . ,  2  2  2  2 
arc  sin  r.  ,/r.,  if  E,  t  >  r  -  r 


■  •  i  f  ■  i 

l-l  l 


i-1 


(155) 


arccos 


2  2  2  2 
rj  +  ^  T  -  ri-l 
2  r.  E,  r 

l  ^ 


otherwise 


2  -rr  r.  (1 
i 


2J 

P  ) 


I  h 


^q.q' 


q' 


/ 


[sin  u>  (U  -  sina(£)]  v  0  d£  (156) 


where 


r.  i  sin  i p 

coft  )  =i'pA  y  A*,)  *  arcsin  - 

1  i 

r.  1  sin  ( i  -  l)p 

a  (E,)  =  (£'  -1)  P  v  arcsin  — - ; 


(157) 


The  part,  v  0,  of  Eq.  (1 56)  is  required  when  u>(£)<  a  (^ ),  which  will  occur, 
for  example,  wheny^E,  )  <  (l'  -  l)p,  which  is  the  case  for  small  t,  when 

V  ^  2. 

Out  side -to -Top.  Next,  let  the  rays  common  to  fans  and  Fql  enter 

Z  .  through  the  outside  boundary  and  leave  through  the  top.  This  case 
i,  j 

may  be  divided  into  two  subcases,  depending  on  wnether  the  rays  are 
traveling  inward  {ip  <  ir/2)  or  outward  {ip  >  ir/2)  when  they  emerge.  In 
either  subcase,  the  azimuths  of  rays  in  fan  F^  will  lie  in  the  range 
{i  -  l)p  <  <(>  <  ip  at  r  =  r.;  but  in  the  latter  subcase,  this  will  be  the 
situation  as  they  pass  out  of  the  cylinder  r  =  r..  It  is  seen  from  figure  7 
that  the  incoming  and  outgoing  azimuths  are  supplementary  and  hence  that 
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the  range  of  azimuths  of  rays  in  F  where  they  enter  the  cylinder  r  = 


is,  for  £p  >  -^it  , 


-  ]»lp 


Therefore,  n  =0  unless  f  =  1  or  ('  =  (  -  (f  -  1).  Equation 

4>4  max  n 

(156)  is  still  valid  for  q  ,  but  the  formulas  for  a >(4  )  and  a(4  )  must  be 

q,q 

changed.  Incase  £'  =  i ,  a  (4 )  >  y  (4  )  (Eq.  (155)  )  to  assure  that  the  rays 

will  not  emerge  through  the  inside  surface  and  a  new  constraint  on  w(4  )  is 

required  to  assure  that  the  rays  are  still  going  inward  when  they  emerge. 

In  figure  8»  it  is  seen  that  if  a  ray  has  azimuth  <J>  at  r  =  r.,  then  it  must 

go  a  horizontal  distance  d  =  r^  cos  4>  before  beginning  to  go  outward.  But 

the  horizontal  distance  that  a  ray  in  fan  F  travels  in  changing  its  altitude 

2  —  4 

by  4  is  t4,  where  r  =  (1  -  p  )2/p.  Therefore, 


(158) 


is  the  upper  limit  of  the  azimuth  of  rays  entering  zone  Z  in  fan  F  at 

hj  q' 

a  point  lying  4  below  the  top  boundary  that  are  still  going  inward  when  they 

reach  the  top.  The  A  1  part  of  the  formula  forces  (3(4  )  =  0  when  t4  >  r  , 

i’ 

which  is  to  be  desired  since  all  rays  entering  farther  from  the  top  than 
r./£  are  outward-going  when  they  reach  the  top.  Thus,  when  £'  =  £, 


<*tt)  =  (£’  -  1)  P  v  yjU) 
<*>(£)  =  i'pA  (3(4  ) 


(159) 


When  £'  =  -  £  +  1,  it  is  required  that  the  rays  emerge  going 

outward  through  the  top.  a  (4  )  (3  (4  )  will  assure  that  they  are  going  out¬ 

ward.  A  new  restriction  is  required  to  eliminate  rays  that  leave  through 
the  outside  boundary.  Recalling  that  t4  is  the  horizontal  distance  traveled 
in  rising  to  the  top,  it  is  seen  in  figure  9  that 
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y2(C)  =  arccos  ^  A  1^  (160) 

is  the  limiting  azimuth.  Again,  clipping  the  cosine  at  1  is  appropriate 
because  any  ray  that  enters  the  cylinder  r  =  r.  with  axial  projection  M 
will  leave  before  it  goes  an  axial  distance  of  2r./r.  Thus,  when  l,'  =  f 

-I  +  1,  1  maN 

)  =  W  -  1)  p  v  Y  j(UvP(U 

„  ,  „  (161) 

w(U  =  V  P  a  y2(£) 


Figure  9.  Azimuth  of  a  Ray  that  Strikes  the  Upper  Outside  Corner 

Outside -to -Outside.  As  in  the  second  subcase  of  outside -to-top,  it 
can  be  inferred  that  if  consists  of  rays  entering  zone  Z.  .  through  the 
boundary  r  =  r.  and  F^  consists  of  rays  leaving  through  the  same  boundary, 

thCn  \q'  "  °  unless  '  =  ^max  -  l  +  1.  The  limit  on  a  (O  is  simply 
to  assure  that  the  rays  emerge  through  the  outside  boundary  before  reaching 
the  top  or  inside.  Thus, 
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a(;)  =  (r  -  1)  P  V  Yj(0  V  V2(C) 

u)(U  =  V  p. 


(162) 


Inside -to -Out  side  As  is  to  be  expected,  this  case  bears  a  strong 
resemblance  to  the  outside-to-inside  rase  One  difference  is  that  the 
integrals  in  the  numerator  and  denominator  of  Eq  (154)  are  now  negative, 
although  tj  remains  positive  Other  differences  will  appear  as  the  dis¬ 
cussion  progresses. 

Let  the  rays  common  to  fans  F^  and  F  enter  zone  Z.  through  the 

inside  boundary  and  leave  through  the  outside  boundary.  As  before,  the 

boundary  associated  with  F  is  the  one  through  which  the  rays  are 

entering;  i.e.,  the  inside  boundary  associated  with  F  is  the  outside  bound- 

9 

ary.  The  rays  in  fan  F  leave  the  cylinder  r  =  r.  with  azimuths  in  the 

A  1 

range  (0  -  1)  p  <  4>  <  tp.  It  is  seen  from  figure  10  that  a  ray  having 

azimuth  4>  at  r  =  r.  has  azimuth  n-arcsin  (r  sin  &)/r  at  r  =  r 

i  i  ■  i .  1  i .  1 


Figure  10.  Azimuth  of  Outgoing  Ray 
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provided  that  it  gets  that  close  to  the  axis  (which  is  the  case  if,  and  only  if, 

r.  sin  <b  £  r.  ).  Thus,  the  azimuths  of  rays  of  F  that  come  within  r. 
x  1-1  q  l-l 

of  the  axis  lie  at  that  point  in  the  range 


r.  sin  (i  -  1)  p 


tt  -  arcsin 


(r.  sin  (i 
— 

ri-l 


A  1)  <  <)>  £  ir-arcsin 


(r .  sii 


sin  i  p 


As  for  the  condition  that  the  rays  hit  the  outside  boundary  before  they 

2  2  2  2  2 

reach  the  top.  assume  that  (r.  -  r.  .)  <  t  r3  <  r.  -  r.  .  Then  a  ray 

l  l-l  i  l-l 


of  azimuth 


4>  =  arccos 


2  ^  x2  .2 

l-l _ 

2  r  t  £ 

l-l 


will  rise  by  an  amount  in  going  from  r  =  r.  j  to  r 
if  Y_(£)  is  redefined  as 

w 

/  TT  if  TC,  <  r.  -  r 
I  i  l-l 

I  r  2.2  .  2  2 

_ )'IZ  *  >  \  -  Vi 


r..  Consequently, 


(163) 


y,(U  = 

3 


arccor 


2  2  2  2 
ri-l  +  T  ^  -  ri 

2  Vl  T  * 


otherwise, 


then  it  can  be  stated  that  a  ray  with  azimuth  at  r  =  r^  will  reach 
r  =  r.  before  it  rises  by  an  amount  E,  if,  and  only  if,  4>  >  y^C)-  Thus, 
Eq.  (156)  is  still  a  valid  equation  for  provided  that 


a  (£  )  =  (l'  -  1)  P  v  h  -  arcsin 


(r^  sin  ?p  ^ 
-  a  1  ] 

Vi 


(r.  sin(£  -  1 )p  \ 

-  v  1 J  vy  3(r) 

J  (164) 
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Inside -to -Top.  This  case  is  exactly  like  the  inside-to-outside  case 
except  that  y  ^(Z,  )  is  now  an  upper  limit: 


a(U  =  (£'  -  1)  p 


(r.  sin  (£  -  1)  p  \ 
-  All 

Vl  / 


w(U  =  £'  P 


(r.  sin  £p  \ 

-  A  1 ) 

ri-l  / 


(165) 


ay3U) 


Next,  consider  those  c'ses  in  which  F  is  a  fan  associated  with  the 

q 

bottom  of  zone  Z.  .  (assuming,  as  usual,  that  p  >  0).  In  such  cases  the 

formula  (150)  for  ^  becomes 

q,q 


q  ,  =  6  ,  f  1  (Mr)  -  a(r)]  v  0)  r  dr  (166) 

q.q  *  ,  <ijr 

l-i 


where  oj(r)  and  a(r)  are  the  upper  and  lower  limits  on  the  azimuths  of 
rays  common  to  fans  F  and  F  that  enter  the  bottom  of  Z.  .  at  radius  r. 

q  q  i.J 

Bottom -to -Inside.  Let  the  rays  common  to  fans  F  and  F  ,  enter 

-  q  qt 

zone  Z.  .  through  the  bottom  and  leave  through  the  inside  boundary.  The 
azimuth  <J>  of  a  ray  in  fan  F  lies  in  the  range  (£'  -  1)  p  <  <|>  <  £'p 

q 

r  =  r.  and  hence  in  the  range 


arc  sin 


Dp  \ 

-  A  I'l  <  <|>  < 


arcsin 


sin  i '  p 
r 


at  r.  The  azimuth  <(>  of  a  ray  in  fan  F^  lies  in  the  range  (£  -  l)p  <  «j>  <  £p 

at  r  =  r.  .  and  hence  in  the  range 
l-l 

r.  sin  (£  -  l)p  r.  ^  sin  ip 

arcsin  -  £  <J>  <  arcsin  - 

r  r 
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at  r.  It  remains  to  determine  what  limit  must  be  placed  on  the  azimuth  of 
rays  entering  through  the  bottom  to  assure  their  leaving  through  the  inside 
boundary.  In  rising  by  an  amount  h,  a  ray  goes  a  horizontal  distance  of  hT 
Thus,  if  y^(r)  is  defined  as 

/  0  if  r  >  r._1  +  h  t 


T Ar)  ~  /  arcsin  r,  Jr  if  r2  <  r2  +  h2  T 2 

4  <  l-l  l-l 


arccos 


2  t  ,2  2  2 
r  +  h  t  -  r.  , 
_ _ l-l 

2  r  h  t 


otherwise 


(167) 


then  rays  entering  the  bottom  at  radius  r  will  reach  the  inside  before  the 
top  if,  and  only  if,  they  enter  with  azimuth  less  than  Y4(r).  Thus,  Eq.  (166) 
may  be  used  for  q  provided  that 

q.q 

/(r  sin  (f  *  -  1)  p)  v  (r  sin  (  £  -  l)p)  \ 
a(r)  =  arcsin  I - - - — -  a  ij 


w(r)  =  arcsin 


sin  £  '  p)  v  (r .  sin  £p) 


(168) 


A  A  y4(r) 


Bottom-to-Top.  Let  F  still  be  associated  with  the  bottom  of  zone 

Z.  but  let  F  be  associated  with  the  top.  As  in  the  outside-to-top  case, 

n  =0  unless  £'  =  l  or  £  +  £•  =  £  +  1,  but  now  £'  =  £  splits 

q.q  max  ^ 

into  two  subcases:  £'  =££(1/Z)£  and  f  =  l  >  (1  / 2) £  .  Also.it 

max  max 

will  be  necessary  to  redefine  p  and  y.  Let 


Pj(r)  =  arccos 


(?*■) 


(169) 


so  that  rays  having  azimuth  4>  <  p^(r)  at  r  will  still  be  going  inward  after 
rising  by  an  amount  h.  And  let 
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0  if  r<hr-r. 


tt  if  r  <  r,  -  hT 


y5(r> 


(170) 


arccos 


2  2  2  2 
r  +  h  t  .  r. 

_ i_ 

2  r  h  t 


otherwise 


so  that  rays  having  azimuth  <  y  (r)  at  r  will  rise  by  an  amount  h  before 

emerging  from  the  cylinder  r  =  r.. 

Consider  first  the  subcase  £'  =  £  <  (l/2)£  ,  which  is  the  one 

max 

where  the  rays  are  still  going  inward  as  they  leave-  through  the  top  of  the 
zone.  Then 


a(r)  =  arcsin 


r.  sin  (£‘  -  l)p 


w(r)  =  arcsin 


P 

(r .  sin  £'  p  \ 

-  Aij  A 


‘) 


A  ljv  y4(r) 


(171) 


(r) 


Next,  if  £'  <  (1/ 2)£  and  C  =  l  -  V  +  1  (>  (l/2)£  ),  then 

max  max  max 


a(r)  =  arcsin 


c»>(r)  =  arcsin 


/r  ;  -  l)p  V 

in  y - 7 -  A  y 


A  1)  v  PL(r)  v  y4(r) 


r.  sin  £'p 


P 


•) 


(172) 


A  lj  A  y5(r) 


and,  finally,  if  £'  =  £>(l/2)£  ,  then 

max 

fr.  sin  (  £  -  1)  p 

cr(r)  =  it  -  arcsin  | -  A  1 


u>(r) 


(r.  sin  ( 

— 
r 

[/r.  sin  £'p  \"1 

n  -  arcsin  ( - - -  A  ill 


) 


(173) 


A  1|  I  A  y  (r) 
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BoUom-tQ -Outside.  Let  F  still  be  a  fan  associated  with  the  bottom 
of  zone  Z..,  but  let  F^  be  associated  with  the  outside  boundary.  Then 

\,q'  =  °  UlUeSS  l'  =  1  °r  l'  =  "  +  l'  Since  the  r ay s  of  F 

are  assumed  to  be  leaving  Z.  .  at  the  outside  boundary,  &>  (l/2)i 

„  1»J  max' 

Thus,  for  i'  -  £  -  £  +  1, 

max  ’ 


/r.  sin(i '  -  l)p 

a(r)  =  arcsin  I - - -  a  1 J  v  y ^(t) 


■) 


u(r)  =  arcsin 
and  for  £  '  =  £  , 


/r.  sin  £ '  p  \ 

in  [ — 7 — A  y 


(174) 


T  /r  sin  (£'  -  l)p  \"1 

«(r)  =  -  arcsin  ^ - - -  A  ljj  v  y^r) 


o'  (r)  =  it  -  arc 


sin 


(r .  sin  £'  p  \ 

~  ~  A  *) 


(175) 


estimation  of  the  length 

The  factor  t^  occurring  in  Eq.  (146)  is  a  quantity  associated  with 
fan  F^  having  the  dimensions  of  length.  It  represents  something  like  the 
mean  length  of  the  intersections  of  rays  of  fan  Fq  with  the  zone  it  leaves. 
The  procedure  used  in  SUBROUTINE  DRAW  of  SHORT 2  is  to  choose  a 
representative  ray  of  fan  Fq  and  set  t  equal  to  the  length  of  its  inter¬ 
section  with  the  zone.  In  order  to  specify  precisely  what  is  done,  define 

the  mean  direction  of  cone  C.  to  be  one  with  axial  projection  p  =  u 

£,m  m-} 

and  azimuth  <j>  =  m)/  2  and  the  mid-circle  of  boundary  BA. 

to  be  the  circle  z  =  Zy  r  =  (l/2)(r._j  +  r^  and  the  mid-circle  of  boundary 

BRf  .  to  be  the  circle  z  =  (z  +  z .)/ 2,  r  =  r..  In  these  terms,  if  F  is 
J  J  i  q 

associated  with  boundary  B  and  cone  C  ,  then  a  representative  ray  R 

4  q  7  q 

of  F  is  a  ray  passing  through  the  mid-circle  of  B  in  the  mean  direction 

*  q 
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of  cone  C  ,  and  t  is  the  length  of  the  intersection  of  R  with  Z  .  The 

q  q  q  q 

value  of  t  is  well-defined,  because  all  representative  rays  of  F  are 

q  q 

equivalent  with  respect  to  the  symmetry  of  the  system,  and  consequently 
they  intersect  Z°  in  segments  of  equal  length. 

q 

THE  SOURCE  TERM 

The  strength  of  the  source  at  the  center  of  a  HECTIC  zone  is  calcula¬ 
ted  from  zone-centered  temperatures  using  Eq.  (131),  and  at  other  points 
it  is  obtained  by  a  linear  (in  r  and  z)  interpolation  of  the  zone-centered 
data.  The  source  term  S  in  Eq.  (146)  is  then  obtained  in  the  following 

q 

way.  Let  R  be  the  representative  ray  of  F  as  defined  above,  and  let 
i  o  *1 

P  and  P  ,  respectively,  be  the  points  where  R  enters  and  leaves  zone 

o  ^ 

Z  .  The  distance  between  these  points  has  already  been  given  the  designa- 

a  a 

tion  t^.  Let  S  be  the  strength  of  the  source  at  P  ,  a  =  i  or  o.  The 

contribution  to  the  intensity  of  radiation  at  points  along  the  segment  of  R 

i  q 

between  P  and  P  due  to  the  source  in  zone  Z  is  assumed  to  satisfy 

q 

the  transport  equation, 


dl 

ds 


-  cr 


I  ♦  s1  ♦  4g---..gl> 


where  s  is  the  distar.ce  along  R  from  P1  toward  P°  and  1(0)  =  0.  It 
follows  ..hat 


r  .  _0  in  , 

i(t  )  =  S1  -  - 

q  at 

■  n  ■ 


-at 


S°  -  s1 


(176) 


Finally,  the  source  term  is  defined  to  be 


S  =  I(t  )  k 

q  q  q 


(177) 


where  is  the  number  of  rays  in  fan  F^  as  given  in  Eq.  (147). 
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Another  type  of  source  to  be  considered  is  the  radiant  energy  that 
flows  into  the  system  through  its  outer  surface.  As  in  LONG2,  a  boundary 
temperature  0Qut  is  assigned  to  each  interval  of  the  outer  boundary  by 
input  cards.  On  the  assumption  that  the  incoming  energy  is  isotropic 
black-body  radiation,  the  energy  flow  assigned  to  an  incoming  fan  F  is 

q 


J 

q 


ac  ^4 
4it  out 


(178) 


which  is  the  SHORT 2  version  of  Eqs.  (133)  and  (134).  To  see  the  analogy 
fully,  observe  that  for  any  outer  boundary  interval  B, 


(179) 


where  a  is  the  area  of  B  and  |Fq(q€Q  is  the  set  of  fans  F  for  which 
Bq  =  B  and  which  enter  the  system  through  B. 

Serious  difficulties  have  been  encountered  when  the  treatment  of 
sources  just  described  has  been  applied  to  overly  heterogeneous  systems. 
If,  for  example,  a  hot  opaque  zone  lies  next  to  a  cold  transparent  one,  then 
representative  rays  running  through  the  cold  zone  after  emerging  from  the 
hot  one  will,  according  to  Eq„  (176)  pick  up  far  more  intensity  than  they 
should  because  of  the  large  value  of  S1.  In  LONG2,  the  problem  has  been 
relieved  to  some  extent  by  setting 


-<rt 

t/A  _  Cc  1  -  e  q 

I(t  )  -  S  (180) 

c 

where  S  is  the  central  source  strength  whenever  S1  a  s°  v  SC 
<  f(S  v  S  v  SC),  where  f  is  input  (usually,  f  =  2). 

It  must  be  emphasized  that  the  problem  of  interpolating  a  source 
distribution  on  the  basis  of  data  supplied  on  a  coarse  mesh  will  never  be 
completely  solved.  But  in  view  of  the  expense  of  performing  two-dimensional 
transport  calculations,  there  is  a  strong  economic  incentive  to  find  partial 
solutions  of  various  types. 
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SOME  SPECIAL  SOLUTIONS 

Two  cases  of  importance  are  easy  to  solve  with  the  view-factor 
method.  The  first  is  the  case  of  an  evacuated  system  with  uniform  iso¬ 
tropic  incident  radiation.  In  this  case,  S  =  cr  =  0  in  all  zones,  and  Eq.  (176) 

becomes  indeterminate;  but  the  correct  assignment  is,  of  course,  S  =0. 

*1 

Let  the  energy  flow  in  the  incoming  fans  F^  be 

J  =  1°  k 


By  virtue  of  the  relation  expressed  in  Eq,  (136),  J 
the  solution  to  Eq.  (146). 


=  I  k  for  all  q  is 

q 


Next,  suppose  that  the  system  is  filled  with  material  of  constant 

absorption  coefficient  and  constant  source  strength  S  =  <r  1°.  If,  in  addition, 

radiant  energy  is  flowing  into  the  system  with  isotropic  intensity  1°,  then 

J  =  1°  k  again  satisfies  Eqs.  (146),  (176),  and  (177)  with  I(t  )  =  1° 
q  q  q 


(1  -  e  M). 

Another  important  special  case,  but  one  for  which  there  exist  no 
trivial  solutions,  is  the  case  of  the  thick  zone.  To  say  a  zone  is  thick 
implies  that  at  >>  1  and 

q 

i(t ) «  —  -  ■ 
q  a  2  t 
o-  q 

Suppose,  for  example,  that  S  =  S„  +  z  S,  so  that  S°  -  S1  =  Az  S.  and  t  = 

°  1  i  q 

Az/n  ,  where  Az  is  the  difference  in  altitude  between  P°  and  Pl.  Thus, 

q 


q 


V! 


J  » 

q 


P  ■  9) 
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Next,  let  B  be  some  horizontal  zone  boundary,  and  let  Q  be  the  set  of  fan 

indices  q  for  which  p >  0  and  B  =  B.  Then  the  rate  of  transfer  of  radiant 

*  4 

energy  in  the  upward  direction  through  B  will  be,  according  to  the  view- 
factor  method, 


Vp  =  — 

±5  q 

q*Q  4 


S_ 

<r 


IVil 


fi  k 

q  q 


Q  “  Q 

To  perform  the  sums,  first  sum  over  azimuth.  Simply  setting  =  n/2  and 
=  0  in  Eq.  (152)  gives  1  /4  of  the  total,  i.e., 

v  "^q,  2  2  v 

k  =  (irr.  -  iTr.  )  p 

q  2  i  i  - 1'  rq 

so  the  sum  over  azimuth  is 


k  =  2  TTfc  a  u 

q  q  q 


2  2 


l 


where  a  =  rr(r.  -  r._ ^),  the  area  of  B.  The  sums  over  axial  projection 
are  then 


22  '  l*m)  =  /  ^  =  I 

m  2  J 


m 


which  finally  leads  to 


o°  S,  , 

•  up  S  1  2-rrq 

eb  “  T  ™  -~2  — 


100 


1  *  *  _ _ _ V 


kite 
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Performing  the  s^me  calculation  for  jj.  <  0  only  changes  the  sign  of  the  first 
term.  Thus, 

•  •  up  •  down  4 ng  ^  1 

EB  =  EB  +EB  =  2 

a 

or,  since 

fl  _  I  dS  _  dS 
or  a  dz  dT 

where  t  is  optical  depth,  one  finally  arrives  at  the  diffusion  approximation 

A  _  4nq  dS 

B  "  "  3<r  dr 

A  similar  result  is  obtained  when  the  gradient  of  the  source  is  radial,  but 
there  are  additional  complications  in  that  case  caused  by  the  curvature 
of  vertical  boundaries. 


METHOD  OF  SOLUTION 


Solving  the  transport  equation  in  the  view -factor  approximation  is, 
on  the  face  of  it,  a  matter  of  solving  a  large  linear  system  of  simultaneous 
equations  (Eq.  (146)).  It  turns  out,  however,  that  it  is  possible  to  arrange 
the  equations  in  a  sequence  that  permits  each  to  be  solved  in  terms  of  the 
solution  of  the  preceding  ones. 

Recall  first  that  ri  ,  =  0  unless  m  =  m  , .  Hence,  it  is  possible 
'q,q'  q  q' 

to  solve  subsystems  of  equations  corresponding  to  the  various  values  of 


rriq  independently  of  each  other.  Consider,  then,  the  problem  of  solving 
the  system  represented  by  Eq.  (146)  for  all  q  such  that  mq  =  m.  Suppose, 
for  example,  that  the  sign  of  H-m_I  is  positive.  The  technique  is  to  treat 
a  layer  of  zones  at  a  time,  a  layer  of  zones  being  Z.  .  for  1  <  i  <  i  and 
j  fixed,  starting  with  the  bottom  layer  (j  =  1)  and  proceeding  upward. 

Within  a  layer,  one  first  calculates  the  J's  of  the  incoming  fans  (<j>^,  Z.v/2), 
starting  at  the  outside  and  proceeding  inward,  and  then  the  outgoing  fan 


>  tt/2),  starting  at  the  center  (i  =  l)and  proceeding  outward.  To  see  why  this 
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sequence  has  all  the  desired  properties,  observe  first  that  when  i  =  1,  all 
the  J's  for  fans  entering  through  the  bottom  are  specified  as  boundary 

5)C 

sources  .which  is  also  true  of  incoming  fans  at  i  =  i  .On  the  inward 

max 

sweep  of  the  bottom  layer,  the  J's  of  incoming  fans  entering  through  the 
bottom  and  outside  of  any  particular  zone  Z  are  all  that  are  needed  to 
calculate  the  incoming  fans  leaving  through  the  inside  and  top.  Since  the 
incoming  fans  leaving  Z.^  ^  through  BL.  ^  are  the  incoming  fans  entering 

Zi-l,l  thr°u8h  BRi_i#  i  (=  j)*  the  next  step  is  ready  to  be  taken,  and 

the  validity  of  the  inward  sweep  is  established.  To  calculate  J's  of  the 

outgoing  fans  leaving  Z  through  the  outside  and  top,  it  suffices  to  have 
the  J's  of  the  outgoing  fans  entering  through  the  inside  and  bottom  together 
with  the  incoming  fans  that  were  obtained  on  the  inward  sweep.  Thus,  an 
outward  sweep  does  permit  the  calculation  of  the  outgoing  fans.  The  pro¬ 
cess  produces  the  J's  of  both  incoming  and  outgoing  fans  through  the  top 
boundaries  of  the  layer  which  provides  the  bottom  boundary  condition  for 
the  layer  above.  Thus,  the  entire  upward  sweep  is  carried  out.  When 
the  upward  sweep  is  done,  a  downward  sweep  is  performed  with  the  same 
set  of  q's  and  t's,  but  with  the  layers  reversed  for  the  p  which  is  just  the 
negative  of  the  one  involved  in  the  preceeding  upward  sweep. 

The  contributions  to  E  (Eq.  (138))  are  accumulated  as  the  J's  are 

J 

computed.  Some  storage  of  J's  is  required,  but  not  much;  it  suffices  to 
uave  room  for  all  the  J's  that  enter  or  leave  one  layer  for  one  value  of  p. 
When  the  top  boundary  is  a  symmetry  boundary,  the  appropriate  boundary 
condition  is  Ji>m,  =  J^m>  where  pm,  =  When  the  bottom  boundary 

is  a  symmetry  boundary,  a  similar  relationship  subsists  on  the  bottom,  so 
the  downward  sweep  must  precede  the  upward  one.  A  pair  of  symmetry 

planes,  which  would  imply  an  axial  periodicity,  is  not  currently  treated  by 
the  code. 

*  As  discussed  in  the  section  entitled  "The  Source  Term." 
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SECTION  VI 

FLOW  OF  CONTROL  IN  SUBROUTINE  DRAW  AND  THE 
"DRAW  SUBROUTINE  SEQUENCE" 


SUBROUTINE  DRAW  specifies  the  overall  flow  of  control  through 
the  "DRAW  subroutine  sequence"  (shown  in  Figs.  11  and  12)  that  ini¬ 
tializes  geometric  quantities  and  creates  the  "DRAW  data"  for  the  "trans¬ 
port  subroutine  sequence"  (shown  in  Fig.  18). 

Upon  entering  SUBROUTINE  DRAW  the  input  to  the  "DRAW  sub¬ 
routine  sequence"  is  read  in  on  cards.  This  input  consists  of  black-body 
system  boundary  temperatures,  two  tolerances  that  place  restriction!  on 
accuracy  of  the  calculations  in  the  "DRAW  subroutine  sequence"  (TOLER 
and  CHKSUM),  and  variables  LMAX  and  MUMAX  that  specify  the  number 
of  fans  of  direction  to  be  constructed  per  hydro  zone  of  a  HECTIC 
problem. 

The  "DRAW  subroutine  sequence"  creates,  for  each  zone  surface 
of  the  hydro  mesh,  a  set  of  fans  of  direction,  each  specified  by  a  polar 
angle  0  (arccos  MU(M)),  an  azimuthal  angle  fl>  (PHI(L)),  and  a  range 

v 

A4>(PP)  of  azimuthal  angles  that  must  be  the  same  for  all  fans  associated 
with  all  zone  surfaces.  Each  zone  surface  has  associated  with  it  a  set  of 
fans,  each  set  consisting  of  LMAX*MUMAX$2  funs.  (For  each  polar 
angle  0m  of  MUMAX  polar  angles,  there  are  LMAX1^  azimuthal  fans.) 
Because  of  cylindrical  symmetry,  however,  only  LMAX  azimuthal  fans 
are  considered  in  the  "DRAW  subroutine  sequence." 

Given  a  set  of  fans  for  each  zone  face,  the  "DRAW  subroutine 
sequence"  performs  a  sweeping  operation  through  the  hydro  mesh  in  a 
specified  manner  calculating  "view  factors,"  or  "q's,"  which  couple 
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Figure  12.  SUBROUTINES  of  the  "DRAW  Subroutine  Sequence' 
Employed  in  an  Outward  DRAW  Sweep 
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each  fan  on  each  zone  face  with  all  the  other  fans  on  all  the  neighboring 
zone  faces.  Formally: 

Given  a  particular  hydro  zone, 

h  (M,  L,  LP)  =  the  fraction  of  (energy  entering  the 

^1~*S2  zone  in  time  t  through  face  Sj  in  fan 

LP)  which  leaves  the  zone  through 
face  S£  in  fan  L  in  the  case  of  isotro¬ 
pic,  homogeneous  radiation  <r=S  =  0 
with  the  intensity  of  the  radiation  field 

Io.  =  1. 

Notice  the  neighboring  zone  faces  S2 .  are  the  faces  of  the  zones 

which  share  face  S, . 

1 

The  order  in  which  sweeping  occurs  in  DRAW  is  as  follows: 

For  each  polar  angle  specified  in  M  (M=l ,  MUMAX/2 ), 
sweeping  is  performed  upward  through  the  hydro  mesh. 
For  each  zone  horizontal  layer,  an  inward  and 
or  outward  sweep  is  performed.  On  the  inward 
sweep,  sweeping  begins  at  the  system  outside  boundary. 
(For  an  account  of  which  if  s  are  calculated  on  the 
inward  and  outward  sweeps,  see  SUBROUTINES 
INWARD  and  OUTWARD  respectively).  Only  half  the 
polar  angles  are  considered,  because 


t]  (M.L.LP) 

51  b2 


•1S  _*s  (MUMAX+1  -M,  L,  LP) 


due  to  the  symmetry  restrictions  placed  on  the  polar 
angles  0M  (see  DRAW  Glossary). 

Notice  .at  a  fan  of  a  given  zone  face  may  be  associated  with  any 
point  on  that  face.  For  this  reason  each  q  calculation  consists  of  an 
integration  over  the  given  zone  face,  and  this  integration  is  performed 
numerically  by  FUNCTION  SINT  under  control  of  the  relative  error 
criterion  TOLER,  which  is  input  in  DRAW.  It  is  desirable  and  reason¬ 
able  to  require  that  the  rfs  be  calculated  such  thatZr|  (L,  LP)  =  1.0 
exactly,  for  each  fan  LP  of  a  zone  face  summed  over  all  fans  L  of 
neighboring  zone  faces.  However,  each  q  is  calculated  by  an  integration 
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with  a  certain  error;  and  with  the  present  version  of  the  code 
the  r) ' s  do  not  sum  exactly  to  1.0.  The  sum  is  checked  in  DRAW 
(and  partially  in  SUBROUTINE  OUTWRD)  for  each  fan  of  each  zone  face 
and  a  message  is  printed  if  the  sums  are  not  within  CHKSUM  (input)  of 
1.0.  If  the  printing  of  this  message  occurs  during  execution  of  SUBROU¬ 
TINE  DRAW,  it  is  an  indication  (assuming  CHKSUM  >  10*  TOLER)  that 
there  is  a  programming  error  in  the  calculation  of  tho  r)'s.  The  q's  along 
with  information  specifying  the  characteristic  ray  path  (see  SUBROUTINE 
DISTNC)  associated  with  each  fan  on  each  zone  face  and  other  information 
comprise  the  "DRAW  data"  which  is  output  by  SUBROUTINES  DRAW, 
INWARD,  and  OUTWRD  to  a  "DRAW  data"  file  to  be  used  by  SUBROUTINE 
TRAN2  in  each  cycle  of  a  HECTIC  problem.  Output  of  this  data  is  accom¬ 
plished  by  the  filling  and  subsequent  emptying  of  an  output  storage  buffer 
(BUFF2)  as  the  sweeping  through  the  hydro  mesh  occurs,  creating  records 
of  data  or.  the  file  as  the  buffer  is  filled  and  emptied.  The  smallest  unit 
of  data  allowed  for  one  buffer -load  is  an  inward  or  an  outward  sweep 
through  one  zone  (one  CALL  executed  to  SUBROUTINES  INWARD  or 
OUTWRD).  The  end  of  an  inward  or  outward  sweep  of  one  zone  layer  is 
always  terminated  by  the  creation  of  a  record  on  the  "DRAW  data"  file; 
thus,  "DRAW  data"  of  one  complete  sweep  of  a  zone  layer  is  never  mixed 
with  that  of  the  following  or  preceding  zone  layer  sweep  (this  ensures  ease 
of  handling  this  "DRAW  data"  in  SUBROUTINE  TRAN2). 

It  is  intended  that  the  "DRAW  data"  file  be  a  magnetic  tape.  Since 
the  data  comprising  this  file  is  of  a  geometric  nature  and  only  depends  on 
the  HECTIC  problem  mesh  and  the  variables  LMAX,  MUMAX,  and  TOLER, 
a  complete  HECTIC  problem  (comprising  many  cycles)  may  be  solved  with 
only  one  FORTRAN  CALL  to  SUBROUTINE  DRAW  and  subsequent  CALLS 
to  SUBROUTINE  TRAN2  for  each  cycle  of  a  HECTIC  problem.  If  the 
"DRAW  data"  file  is  a  magnetic  tape,  then  SUBROUTINE  DRAW  need  not 
be  called  again  to  regenerate  data.  (However,  parameters  transferred  to 
TRAN2  by  DRAW  through  COMMON  must  be  initialized. ) 
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Input  to  "DRAW  SUBROUTINE  SEQUENCE" 

Medium  Variables 

CARDS  LMAX 

MUMAX 

TOLER 

CHKSUM 

ATHETA(I),  1=1 ,  IMAX 
BTHETA(I),  1=1 ,  IMAX 
RTHETA(J),  J  =  1 ,  JMAX 

Conditions  That  Cause  Termination  of  Execution  in  "DRAW  SUBROUTINE 
SEQUENCE 

The  current  version  of  the  coding  has  only  one  error  condition  test. 
BUFFI  in  SUBROUTINES  INWARD  and  OUTWRD  is  not  allowed  to  over¬ 
flow- -the  problem  will  stop  if  this  occurs  (see  SUBROUTINES  INWARD 
or  OUTWRD).  There  are,  however,  restrictions  on  the  variables  that 
are  consider*.!*  input  to  the  "DRAW  subroutine  sequence"  and  restrictions 
on  variables  that  are  to  be  calculated  by  the  sequence.  (See  SUBROUTINE 
DRAW  Glossary.) 

Results  from  DRAW  SUBROUTINE  SEQUENCE  Transferred  to  the 
"TRANSPORT  SUBROUTINE  SEQUENCE" 

Medium  Variables 

COMMON  LMAX 

MUMAX 

ATHETA(I),  1=1,  IMAX 
BTHETA(I),  1=1,  IMAX 
RTHETA(J),  J  =1 ,  JMAX 
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PP 

L2 

L2P1 

PHI(L),  L=l,  LMAX 
COSPHI(L),  L=1 ,  LMAX 
SINLP(L),  L=I ,  LMAX 
SINP2 
M2 

MU(M),  M  =  1 ,  MUMAX 
SMU(M),  M=1  ,MUMAX 
W(M),M=1,  MUMAX 
NOBUFF 

"DRAW  data"  FILE  NOO 

CH,  CVIN,  CVOUT 
DH.XH,  YH 
DV,XV,  YV 
All  ri's 


Glossary  of  Variables  used  in  SUBROUTINE  DRAW 


FORTRAN 

Label 


Report 

Label _ Description 


ATHETA(I)  0 

out 


BUFF2  None 


CAP  None 


The  temperature  of  the  black-body  system 
boundary  adjacent  to  zone  (I,JMAX) 

(in  eV) 

(input  on  cards) 

(used  in  TRAN2) 

sp.  BUFF2(1)  =  NOO. 

Output  storage  buffer  array  for  the 
"DRAW  data"  that  is  to  be  written  on  the 
"DRAW  data"  file.  (The  maximum  number 
of  words  allowed  is  1023,  and  each  buffer - 
load  must  contain  at  least  one  complete 
(inward  or  outward)  zone  sweep.) 

Saved  temporarily  on  disk  in  DRAW 
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CHKSUM 


COSPHI(L) 

FIOUT 

I 

IBB 


ICHECK 


IMAX 


None  Error  criterion  for  the  sum  of  the  r^'s: 

For  each  polar  direction  specified  by 
M,  each  hydro  zone  (I,  J),  each  face  Sj 
of  these  hydro  zones,  and  each  fan  LP 
on  faces  Sj  it  is  desirable, 

letting  S  =  V*  ti  (M,  L,  LP) 

“  ®CS2 

neighboring 
zone  faces  S2 
and  all  fans 
L  on  each  of 
these  faces . 


(See  SUMB.SUMO) 

that  JS -l|  be  <  CHKSUM.  All  failures  to 
meet  this  criterion  will  result  in  a  printed 
message 

(input  on  card) 

(should  be  >  TOLER) 

Cos  Cos(PHI(L)) 

=  [cos  (£-i)A$] 

None  Saved  temporarily  on  disk  in  DRAW 

i  Index  of  the  current  radial  hydro  zone  with 

outer  radius  X(I) 

None  An  indicator: 

IBB  =  0  means  for  the  current  M  and  J, 
the  "bottom  tj'b"  sum  to  1 
IBB  =  1  means  for  the  current  M  and  J, 
the  "bottom  t's"  do  not  sum  to  1 

(See  SUMB) 

None  An  indicator: 

ICHECK  =  0  means  for  the  current  M  and  J, 
the  "inside  r)'s"  sum  to  1. 

ICHECK  =  1  means  for  the  current  M  and  J, 
the  "inside  r|'s"  do  not  sum  to  1. 

(See  SUM  in  OUTWRD  Glossary. ) 

i  The  number  of  radial  hydro  zones 
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IOO 

None 

An  indicator: 

IOO  =  0  means  for  the  current  M  and  J, 
the  "outside  r|'s"  sum  to  1. 

IOO  =  1  means  for  the  current  M  and  J, 
the  "outside  r|'s"  do  not  sum  to  1. 

(See  SUMO) 

J 

j 

Index  of  the  current  horizontal  layer  of 
hydro  zones  with  upper  boundary  Y(J) 

JMAX 

■^max 

The  number  of  vertical  hydro  zones 

K 

None 

A  running  index 

KK2 

None 

The  index  of  the  location  in  the  BUFF2 
array  which  contains  the  last  entry  of 
"DRAW  data"  for  the  current  filling  of  the 
array 

KMAX 

None 

KMAX-1  is  the  total  number  of  hydro 
zones  in  the  system 

KMAXA 

None 

KMAX  + 1 

L 

l 

A  running  index 

L2 

None 

LMAX/ 2 

L2P1 

None 

L2  +  1 

LMAX 

l 

max 

The  total  number  of  fans  of  directions  to 
be  considered  in  the  "DRAW  subroutine 
sequence. " 

(input  on  card) 

(must  be  even  and  <  6) 

M 

m 

Index  of  the  current  polar  angle  0m  (arccos 
MU(M))  being  considered  in  constructing 
the  q's 

M2 

None 

MUMAX/2 
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MU(M) 


MUMAX 


N 

NOBUFF 


NOO 


P 

PHI(L) 


m 


2M 


None 

None 


None 


None 

•i 


Cos  6m,  where  0m  is  the  discrete 
polar  direction  (along  which  the  q's  are 
calculated)  measured  in  a  clockwise  sense 
from  the  vertical. 


(6m  =  MUMAX  °  K  Qm< 


0 

m 


1 

2 


is  constant  for  all  m;  0m,m  =  l,  MUMAX 
symmetric  about  rr/2.) 


The  maximum  number  of  discrete  polar 
directions,  0m»  considered  in  the  construc¬ 
tion  of  the  r)'s . 


(input  on  card) 

(must  be  even  and  <  6) 

A  running  index 


The  number  of  output  buffer  (BUFF2)  loads 
filled  per  inward  and  outward  sweep  of 
DRAW  along  one  horizontal  layer  of 
zones  (J)  in  direction  0m.  (Not  a  function 
of  M  or  J) 

BUFF2(1) 


The  number  of  inward  and/or  outward 
zone  sweeps  contained  in  the  current  out¬ 
put  buffer  load  BUFF2,  (Each  buffer  load 
must  contain  at  a  minimum  one  complete 
(inward  or  outward)  zone  sweep) 

Saved  temporarily  on  disk  in  DRAW 

The  average  azimuthal  direction  of  fan  L. 
measured  in  the  horizontal  plane  containing 
the  vector  whose  origin  is  the  point  in 
question  and  terminal  point  is  the  axis,  in 
a  positive  sense  away  from  the  vertical 
axis , 


(0  <  <  Tr»  ^  »  UMAX  symmetric 


about  ir/2;  A®  =  ^  is  constant  for 

all  l). 
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PI 

IT 

TT 

pp 

P  =  A«  = 

tt/LMAX,  a  constant 

RTHETA(J) 

0 

out 

The  temperature  of  the  black-body  system 
boundary  adjacent  to  zone  (IMAX.J) 

(in  eV) 

(input  on  cards) 

(used  in  TRAN2) 

SINLP 

sin(£  •  A4 ) 

Sin  (PP*L) 

SINP2 

None 

PP 

Sin  (£-) 

SMU(M) 

2 

m 

Sin(0  ) 
m 

STEF 

ac 

4 

12 

Stefan's  constant  =  1.0283  x  10 

ergs 

(in  2  "'TI  ) 

cm  sec  ev 

SUMB(I,  LP) 

None 

Given  directions  specified  by  M  and  LP 

and  hydro  zone  (I,  J): 

SUMB(I.LP)  =2eTABI(L,  LP) 

L=1,L2 

+]£etabt(l,  LP)  +^ETABO(L,LP) 
L=  1 ,  LMAX  L=L2P  1 ,  LMAX 

(See  CHKSUM) 

(should  =  1 . ) 

SUMO(I.LP)  None  Given  directions  specified  by  M  and  LP 

and  hydro  zone  (I,  J): 

SUMO  (I,  LP)  =2ETAOI(L*  LP> 

L=  1 ,  L2 

+2^ETAOT(L,  LP)  +2eTAOO(L,LP) 
L=1 ,  LMAX  L=L2P  1 ,  LMAX 

(See  CHKSUM) 

(should  =  1 . ) 


113 


AFWL-TR -67-131,  Vol  II 


TOLER  None 


Relative  error  criterion  imposed  upon  each 
integration  performed  by  SUBROUTINE 
SINT 


U 

V 

W(M) 


None 

None 

m 

2 


(in  decimal  fraction) 

(input  on  card) 

Saved  temporarily  on  disk  in  DRAW 
Saved  temporarily  on  disk  in  DRAW 

|Cos[M*A0]  -  cos  [(M-  1)*A0]  1*1 

2 


FLOW  OF  CONTROL  IN  SUBROUTINE  INWARD 

SUBROUTINE  INWARD  is  called  by  SUBROUTINE  DRAW  to  compute 
given  polar  angle  0M,  the  r,'s  that  couple  for  face  Sj  of  zone  (I,J)  all  the 
fans  LPonSj  containing  rays  entering  the  zone  traveling  in  an  inward 
direction  with  fans  L  (on  all  the  other  zone  faces)  which  contain  rays 
leaving  zone  (I,  J)  traveling  in  an  inward  direction.  A  ray  traveling 
through  the  system  is  considered  traveling  in  an  inward  direction  at  point 
P  if  point  P  comes  before  the  point  D  of  closest  approach  between  the  ray 
and  the  system  axis;  the  ray  is  considered  traveling  in  an  outward  direc¬ 
tion  at  point  P  if  P  comes  after  D. 

Given  below  are  the  t,'s  that  meet  the  above  restriction  for  the 
0m's  (all <  rr/2)  considered  in  the  "DRAW  subroutine  sequence,"  and 
which  are  calculated  in  this  routine: 

^B-ifL.LP)  L=l,  L2;  LP  =  1,L2 

Considering  rays  entering  the  zone  bottom 
face  traveling  inward  and  exiting  the  zone 
inside  face  (rays  leaving  the  zone  through 
the  inside  face  must  be  traveling  inward). 
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^  (L,LP)  L=1,L2;  LP  =  1,L2 

Considering  rays  entering  the  zone  outside 
face  (must  be  traveling  inward)  and  exiting 
the  zone  inside  face. 

t!b^t  (L,LP)  L=1.L2;  LP  =  1 ,  L2 

Considering  rays  entering  the  zone  bottom 
face  traveling  inward  and  exiting  the  zone 
top  face  traveling  inward.. 

(L’LP)  L=1.L2;  LP  =  1 ,  L2 

Considering  rays  entering  the  zone  outside 
face  and  exiting  the  zone  top  face  traveling 
inward 

The  computed  Vs  along  with  other  "DRAW  data"  (see  glossary)  are 
stored  in  storage  buffer  array  BUFFI  as  they  are  calculated.  At  the  end  of 
the  inward  sweep  of  zone  (I,  J),  BUFFI  is  emptied  into  the  output  storage 
buffer  array  BUFF2  to  be  saved  for  output  to  the  "DRAW  data"  file.  If 
BUFF2  cannot  accommodate  the  BUFFI  load  of  new  data,  it  is  output  to 
the  "DRAW  data"  file.  BUFFI  must  be  able  to  store  all  the  "DRAW  data" 
for  the  inward  sweep  through  zone  (I,J);  if  if  cannot,  the  problem  is 
stopped. 

Before  control  is  returned  to  SUBROUTINE  DRAW,  preliminary 
calculations  are  performed  for  the  sum -check  on  the  Vs  (see 
SUBROUTINE  DRAW). 

Glossary  of  Variables  Used  in  SUBROUTINE  INWARD 


FORTRAN 

Label 


Report 

Label 


Description 


AA(L)  aj  At  a  given  radius  X(I): 

AA(L)  =  SINLP(L)*X(I),  the  distance 
of  closest  approach  (to  the  vertical 
axis)  of  a  horizontal  ray  making  azi¬ 
muthal  angle  (it-L*PP)  with  the  radius 
vector  at  X(I) 


(in  cm) 
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AID 

None 

Temporary  storage 

ALPHAL 

None 

In  computing  ETABI(L,  LP),  for  a  given 

L  and  radius  X(I): 

tr  -  (the  angle  the  radius  vector 
makes  with  ray  R  at  X(I)),  where  ray 

R  =  a  ray  traveling  inward  towards  the 
vertical  axis  in  a  horizontal  plane 
making  an  angle  (tt- L*PP)  with  a 
radius  vector  at  X(I-l) 

(in  radians) 

ANGL1 

None 

Temporary  storage  for  information 
transferred  to  SUBROUTINES  BOT  and 
OUT 

ANGL2 

None 

Same  as  above 

ASN 

None 

Given  I,  ASN  =  arcsin 

(in  radians) 

BUFFI 

None 

s  CAP 

Storage  buffer  array  for  each  (inward 
or  outward)  zone  sweep.  When  each 
sweep  is  completed,  the  contents  of 
BUFFI  are  added  to  the  output  storage 
buffer  array  BUFF2 

BUFF2 

None 

HP.  BUFF2(1)h  NOO 

Output  storage  buffer  array  (see 
DRAW  Glossary) 

CAP 

None 

Saved  temporarily  on  disk  in  DRAW 

CH(LP) 

kq 

=  JB(J -1,1,  LP,  M) 

(in  ergs/sec) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

CV(LP) 

k 

q 

=  JO(J ,  I,  LP ,  M) 

« .  i  t 

(in  ergs/sec) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 
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CVIN(L) 

DBGPRT 

DELTY 

DH(L) 

DV(L) 

DY(J) 

EPS 


q 


None 


h 

t 


t 


h  =  z.-z.  , 
J 


None 


=  JO(J  ,  I- 1 ,  L,  M) 

(in  ergs  / sec ) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

The  debug  print  control: 

DBGPRT  Z  10~^®  means  debug  print 
desired;  otherwise,  debug  print  not 
desired 

Given  J  ,  DY  (J) 

(in  cm) 

Given  M,  J,I,  L: 

The  length  of  the  characteristic  ray 
of  fan  L  measured  on  the  top  face  Y(J) 
of  zone  (I,  J)  (See  SUBROUTINE 
DISTNC) 

(in  cm) 

(part  of  "DRAW  data"  transferred  to 
TRAN2 ) 

Given  M,  J ,  I,  L: 

The  length  of  the  characteristic  ray 
of  fan  L  measured  on  the  vertical  face 
X(I-l)  of  zone  (I, J)  (See  SUBROUTINE 
DISTNC) 

(in  cm) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

Vertical  length  of  hydro  zones  (I,  J), 

1=1 ,  IMAX 

(in  cm) 

Absolute  error  criterion  imposed  upon 
each  integration  performed  by  SUB¬ 
ROUTINE  SINT 
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ETABI(L,  LP) 


L fABT(L, LP) 


ETAOI(L.LP) 


ETAOT(L,  LP) 


FORPI 

HELP1 


n 


V 


V 


*1 


4jt 

None 


Given  M,J,I,L,LP: 

The  fraction  of  (energy  in  fan  LP 
passing  into  zone  (I,  J)  through  its 
bottom  face  in  1  sec)  that  passes  out 
zone  (I,  J)  through  its  inside  face  in  fan 
L,  in  direction  MU(M)  in  the  case  of 
isotropic,  homogeneous  radiation 
cr=S=0 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

Given  M,J,I,L,LP: 

The  fraction  of  (energy  in  fan  LP 
passing  into  zone  (I,J)  through  its 
bottom  face  in  1  sec.)  that  passes  out 
zone  (I ,  J )  through  its  top  face  in  fan  L, 
in  direction  MU(M)  in  the  case  of  iso¬ 
tropic,  homogeneous  radiation  a  =S  =  0 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

Given  M,J,I,L,LP: 

The  fraction  of  (energy  in  fan  LP  pass¬ 
ing  into  zone  (I,J)  through  its  outside  face  i  i 
1  sec)  that  passes  out  zone  (I,  J)  through 
its  inside  face  in  fan  L,  in  direction  MU(M) 
in  the  case  of  isotropic,  homogeneous 
radiation  cr  =S=0 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

Given  M,J,I,L,LP: 

The  fraction  of  (energy  in  fan  LP  pass¬ 
ing  into  zone  (I,  J)  through  its  outside  face 
in  1  sec)  that  passes  out  zone  (I,  J)  through 
its  top  face  in  fan  L,  in  direction  MU(M)  in 
the  case  of  isotropic,  homogeneous  radia¬ 
tion  rr  =S=0 

(part  of  "DRAW  data"  transferred  to 
TR*N2) 

4  v 

Temporary  storage  for  information  trans¬ 
ferred  to  SUBROUTINE  BOT. 
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# 


HELP2 

I 

IAID 

IS  END 

IS  WEEP 

J 

KK1 

KK2 

KKK 

L 

LZ 

L2P1 

LHI 

L1M1 


None 

i 

None 

None 

None 

j 

None 

None 

None 

I 

None 

None 

None 


None 


L1M2  None 


LLOW  None 


LMAX  j 

*max 


Sarm  as  above 

Ineex  of  the  current  radial  hydro  zone 
wi  h  outer  radius  X(I) 

Flag  generated  for  SUBROUTINES  BOT 
a  d  OUT 

Flag  g  ne  rated  for  SUBROUTINES  BOT 
and  OUT 

Current  direction  of  DRAW  sweep: 

"  1  means  sweeping  inward 
-  2  means  sweeping  outward 

Axial  index  of  the  current  hydro  zone 
w;th  upper  boundary  Y(J) 

Index  of  the  last  current  entry  in  the 
storage  buffer  array  BUFFI  (must  not 
exceed  1023) 

Tuidex  of  the  last  current  entry  in  the 
■  tput  storage  buffer  array  BUFF2 

A  r<uvung  index 
Fan  index 
LMAX/2 
L2  +  1 

Complement  of  the  lowest  index  of  the  fans 
for  which  characteristic  ray  lengths  are  to 
be  calculated  in  SUBROUTINE  DISTNC 

The  lower  limit  in  9orr.e  integrations  by 
SUBROUTINE  DINT 

(in  cm) 

The  upper  limit  in  some  integrations  by 
SUBROUTINE  SINT 

(in  cm) 

Complement  of  the  highest  index  of  the  fans  for 
which  characteristic  ray  lengths  are  to  be 
calculated  in  SUBROUTINE  DISTNC 

The  total  number  of  fans  of  directions  to 
be  considered  in  the  "DRAW  subroutine 
sequence" 

(input  on  card  in  DRAW) 
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LMDA 


LP 

M 

MU(M) 

NOBUFF 


NOO 


PP 

Q  ’ 

QP 

SINLP(L) 

SMU(M) 


hT 

Given  M  and  J: 

The  horizontal  distance  a  ray  will 
travel  in  horizontal  zone  layer  DY(J) 
between  intersections  with  surface 
Y(J-l)  and  Y(J)  in  direction  9  ;  or 
DY(J)*TAN(0m) 

(in  cm) 

i 

Fan  index 

m 

Index  of  the  current  polar  angle 
®m^arccos  ^vJ(M))  being  considered 
in  constructing  the  n  's 

cos  ^ee  DRAW  glossary) 

None 

The  number  of  output  buffer  (BUFF2 ) 
loads  filled  per  inward  and  outward 
sweep  of  DRAW  along  one  horizontal 
layer  of  zones(J)  in  direction  pm>  (Not 
a  function  of  M  or  J) 

None 

BUFF2(1) 

The  number  of  inward  and/or  out¬ 
ward  zone  sweeps  contained  in  the  cur¬ 
rent  output  buffer  load  BUFF2 .  (Each 
buffer  load  must  contain  at  a  minimum 
one  complete  (inward  or  outward)  zone 
sweep) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

A#=  p 

ff/ LMAX ,  a  constant 

■*,  -i 

None 

Temporary  storage 

None 

Temporary  storage 

None 

Sin  (PP*L) 

m 

SIN(*  ) 
m 
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SUMO(I,  LP) 

TANN 

TOLER 

W(M) 

X(I) 

XH(L) 

XMAX 
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None 


None 


T 

None 


Given  M,  I,  I,  LF,  in  SUBROUTINE 
INWARD: 

SUMB(I,  LP)=SUMB(I ,  LP) 

i  y^ETABI(L,  LP)  +T'etABT(L,  LP) 
L=1-L2  L=T7L2 

Given  MtJ,ItLP,  in  SUBROUTINE 
INWARD: 

SUMO(I,  LP)nSUMO(I,  LP) 

+  £etaoi(L,  LP)fy^ETAOT(L.  LP) 
L=1 ,  L2  L=1,L2 

TAN  em 

Relative  error  criterion  imposed  upon 
each  integration  performed  by  SUB¬ 
ROUTINE  SINT 

(in  decimal  fraction) 

(input  on  card  in  DRAW) 

| c o s  ^M*A0)  .  cos  (M-1)*A9)  \*j 


r. 


l 


None 


r. 


l 


Outer  radius  of  radial  hydro  zones 
(I,  J),  J  =  l,  JMAX 

(in  cm) 


Given  M,  J,I,L: 


The  radial  coordinate  of  the  inter¬ 
section  of  the  characteristic  ray  of 
fan  L  and  the  "nearest  zone  face" 

(see  DH(L)) 


(in  cm) 

(part  of  "DRAW  data" 
TRAN2) 


transferred  to 


=X(I),  the  outer  radius  of  the  radial 
hydro  zone  currently  being  considered 
(transferred  to  SUBROUTINES  BOT 
and  OUT) 

(in  cm) 
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XMIN 


r 


i-1 


XV(L)  None 


YH(L)  None 


YV  (L)  None 


=X(I-1),  the  inner  radius  of  the  radial 
hydro  zone  currently  being  considered 
(transferred  to  SUBROUTINES  BOT  and 
OUT) 

(in  cm) 

Given  M,  J  ,  I,  L: 

The  radial  coordinate  of  the  intersec 
tion  of  the  characteristic  ray  of  fan  L 
and  the  "nearest  zone  surface"  (see 

dv(L)) 

(in  cm) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

Given  M,  J  ,  I,  L: 

Y(J-i)  -  (the  axial  coordinate  corres 
ponding  to  XH(L)) 

(in  cm) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

Given  M,  J,I,  L: 

Y(J  -\)  -  (the  axial  coordinate  cor¬ 
responding  to  XV(L)) 

(in  cm) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 


FLOW  OF  CONTROL  IN  SUBROUTINE  OUTWRD 

SUBROUTINE  OUTWRD  is  called  by  SUBROUTINE  DRAW  to  com¬ 
pute,  given  polar  angle  e^j,  the  Ts  that  couple  for  face  Sj  of  zone  (I,  J) 
all  the  fans  LP  on  Sj  containing  rays  entering  the  zone  traveling  in  an 
inward  or  outward  direction  with  the  fans  L  (on  all  the  other  zone  faces) 
which  contain  rays  leaving  zone  (I,J)  traveling  in  an  outward  direction. 
(See  SUBROUTINE  INWARD  for  the  definition  of  a  ray  traveling  inward  or 
outward  at  a  point  P. ) 
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Given  below  are  the  q's  that  meet  the  above  restriction  for  the 
Bjyj's  (all  <  ff/2)  considered  in  the  "DRAW  subroutine  sequence,"  and 
which  are  calculated  in  this  routine: 


Vo(L’LP) 

(L,LP) 

V©  (L'LP) 

'Vo  (L’LP) 
Vt(l’lp) 

q0_T  (L,LP) 


L=L2P1 ,  LMAX ;  LP=L2P1,LMAX 

Considering  rays  entering  the  zone  inside 
face  (must  be  traveling  outward)  and 
exiting  the  zone  outside  face  (must  be 
traveling  outward). 

L=L2P  1 ,  LMAX ;  LP  =  L2P1,LMAX 

Considering  rays  entering  the  zone  inside 
face  and  exiting  the  zone  top  face  traveling 
outward, 

L=L2P  1 ,  LMAX ;  LP=1,LMAX 

Considering  rays  entering  the  zone  bottom 
face  traveling  inward  and  outward,  and 
exiting  the  zone  outside  face. 

L=L2P  1 ,  LMAX ;  LP  =  1,L2 

Considering  rays  entering  the  zone  outside 
face  and  exiting  the  zone  outside  face, 

L=L2P  1 ,  LMAX ;  LP  =  1,LMAX 

Considering  rays  entering  the  zone  bottom 
face  traveling  inward  and  outward,  and 
exiting  the  zone  top  face  traveling  outward. 

L=L2P  1 ,  LMAX ;  LP  =  1,L2 

Considering  rays  entering  the  zone  outside 
face  and  exiting  the  zone  top  face  traveling 
outward. 


The  computed  q's  along  with  the  other  "DRAW  data"  (see  glossary) 
are  stored  in  storage  buffer  array  BUFFI  as  they  are  calculated.  At  the  end 
of  the  outward  sweep  of  zone  (I,J),  BUFFI  is  emptied  into  the  output 
storage  buffer  array  BUFF2  to  be  saved  for  output  to  the  "DRAW  data" 
file.  If  BUFF2  cannot  accommodate  the  BUFFI  load  of  new  data,  it  is 
output  to  the  "DRAW  data"  file.  BUPF1  must  be  able  to  store  all  the 
"DRAW  data"  for  the  outward  sweep  through  zone  (I ,  J ) :  if  it  cannot,  the 
problem  is  stopped. 
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The  *l's  for  the  rays  entering  the  inside  zone  face  can  be  checked 

in  SUBROUTINE  OUTWRD  to  see  if  they  sum  to  1.0 within  CHKSUM  (see 
SUBROUTINE  DRAW),  since  rays  entering  a  zone  through  the  inside  face 
can  never  exit  the  zone  traveling  in  an  inward  direction.  Preliminary 
calculations  are  performed  for  the  sum -check  on  the  remaining  n's  (see 
SUBROUTINE  DRAW). 

Glossary  of  Variables  Used  in  SUBROUTINE  OUTWRD 

FORTRAN 

Label 

Report 

Label 

Description 

AA(L) 

Al 

See  INWARD  glossary 

AID 

None 

Temporary  storage 

ANGL1 

None 

Temporary  storage  for  information 
transferred  to  SUBROUTINES  IN,  OUT, 
and  BOT 

ANGL2 

None 

Same  as  above 

ASN 

None 

Given  I,  ASN  -  arc  sin  ^  ~  ^ 

X  (I) 

BUFFI 

None 

=  CAP 

Storage  buffer  array  (see  INWARD 
Glossary) 

BUFF2 

None 

=  P.  BUFF2(1)  =  NOO 

Output  storage  array  (see  DRAW 
Glossary) 

CH(LP) 

k 

q 

=  JB(J - 1 , 1,  LP,M) 

(in  ergs/sec) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

CHKSUM 

None 

Error  criterion  for  the  sum  of  the  ETA'i 

(see  DRAW  Glossary) 
(input  on  card  in  DRAW) 
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CVIN(LP) 


CVOUT(L) 


DBGPRT 


DELTY 

DH(L) 


DQ 
DV  (L) 


DX(I) 


DY(J) 


k 

q 


k 

q 


None 


h=z .  -  z .  , 

J  J'1 

t 


None 

t 


r . 
i 


r 


i  - 1 


h=z.  -  z . 

J  J-1 


=  JO(J,I-l,  LP,M) 

(in  ergs  /sec ) 

(part  of  "DRAW  data"  transferred  to 
TRAN2 ) 

=  JO(J,I,  L,M) 

(in  ergs  /sec) 

(part  of  "DRAW  data"  trasnferred  in 
TRAN2) 

The  debug  print  control: 

DBGPRT  >_  lO'^O  means  debug  print 
desired;  otherwise,  debug 
print  not  desired 

DY(J) 

(in  cm) 

Given  M,  J ,  I,  L: 

The  length  of  the  characteristic  ray 
of  fan  L  measured  the  top  face  Y(J)  of 
zone  (I,  J)  (see  SUBROUTINE  DISTNC) 

(in  cm) 

(part  of  "DRAW  data"  transferred  in 
TRAN2) 

Temporary  storage 
Given  M,  J , I,  L: 

The  length  of  the  characteristic  ray 
of  fan  L  measured  on  vertical  face  X(I) 
of  zone  (I,  J)  (see  SUBROUTINE  DISTNC) 

(in  cm) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

Radial  zone  length  of  zones  (I,J),J  =  1, 
JMAX 

(in  cm) 

Vertical  length  of  hydro  zones  (I,J). 

1=1 ,  IMAX 

(in  cm) 
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EPS 

ETABO(L,  LP) 

ETABT(L,  LP) 

ETAIO(L.LP) 

ETAIT(L.LP) 


None 


r\ 


*1 


*1 


Absolute  error  criterion  imposed  upon 
each  integration  performed  by  SUB¬ 
ROUTINE  SINT 

Given  M,J,I,L,LP: 

The  fraction  of  (energy  in  fan  LP 
passing  into  zone  (I,J)  through  its  bottom 
face  in  1  sec)  that  passes  out  zone  (I,  J) 
through  its  outside  face  in  fan  L,  in 
direction  MU(M)  in  the  case  of  isotropic, 
homogeneous  radiation  tr=S  =  0 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

See  INWARD  glossary 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

Given  M,  J  ,  I,  L,  LP: 

The  fraction  of  (energy  in  fan  LP 
passing  into  zone  (I,J)  through  its  inside 
face  in  1  sec)  that  passes  out  zone  (I,  J) 
through  its  outside  face  in  fan  L,  in 
direction  MU(M)  in  the  case  of  isotropic, 
homogeneous  radiation  <r=S=0 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

Given  M,J,I,L,  LP: 

The  fraction  of  (energy  in  fan  LP 
passing  into  zone  (I,J)  through  its  inside 
face  in  1  sec)  that  passes  out  zone  (I ,  J ) 
through  its  top  face  in  fan  L,  in  direction 
MU(M)  in  the  case  of  isotropic,  homo¬ 
geneous  radiation  (r  rS=o 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 
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ETAOO(L,  LP) 


ETAOT(L.LP) 

FOR  PI 
HELP1 

HELP2 

I 

IAID 

ICHECK 


ISEND 

ISENDD 

ISWEEP 

J 


H  Given  M,J,I,L,LP: 

The  fraction  of  (energy  in  fan  LP 
passing  into  zone  (I,J)  through  its  outside 
face  in  1  sec)  that  passes  back  out  zone 
(I, J)  through  its  outside  face  in  fan  L,  in 
direction  MU(M)  in  the  case  of  isotropic, 
homogeneous  radiation  cr=S=0. 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

'  4 

H  See  INWARD  glossary 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

4  tt  4  fr 

None  Temporary  storage  for  information 

transferred  to  SUBROUTINES  IN  and 
BOT 

None  Temporary  storage  for  information 

transferred  to  SUBROUTINE  BOT 

i  Index  of  the  current  radia  .  hydro  zone 

with  outer  radius  X(I) 

None  Flag  generated  for  SUBROUTINES  BOT 

and  OUT 

None  An  indicator: 

ICHECK  =  0  means  for  the  current  M  and 
J,  the  "inside"  Vs  sum  to  1. 
ICHECK  =  1  means  for  the  current  M  and 
J,  the  "inside  Vs  do  not  sum 
to  1 . 

(see  SUM) 

None  Flag  generated  for  SUBROUTINES  BOT 

and  OUT 

None  Flag  for  SUBROUTINE  DISTNC 

None  Current  direction  of  DRAW  sweep: 

=  1  means  sweeping  inward 
=  2  means  sweeping  outward 

j  Axial  index  of  the  current  hydro  zone 

with  upper  boundary  Y(J) 
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KK1 

None 

Index  of  the  last  current  entry  in  the 
storage  buffer  array  BUFFI 

(must  not  exceed  1023) 

KK2 

None 

Index  of  the  last  current  entry  in  the 
output  storage  array  BUFF2 

KKK 

None 

A  running  index 

L 

1 

Fan  index 

L2 

None 

LMAX/ 2 

L2P1 

None 

L2+1 

LD 

None 

A  running  index. 

LHI 

None 

See  INWARD  glossary. 

LIM1 

None 

The  lower  limit  in  some  integrations  by 
SUBROUTINE  SINT 

(in  cm) 

LIM2 

None 

The  upper  limit  in  some  integrations  by 
SUBROUTINE  SINT 

(in  cm) 

LLOW 

None 

See  INWARD  glossary. 

LMAX 

*max 

The  total  number  of  fans  of  directions  t: 
be  considered  in  the  "DRAW  subroutine 
sequence". 

(input  on  card  in  DRAW) 

LMDA 

hT 

Given  M  and  J: 

The  horizontal  distance  a  ray  will 

travel  in  horizontal  zone  layer  DY(J) 

between  intersections  with  surface  Y(J-: 

and  Y(J)  in  direction  6  ;  or,  DY(J)  * 

TAN(0  )  m 

m 

(in  cm) 

LP 

i 

Fan  index. 

M 

m 

Index  of  the  current  polar  angle 
(arccos  MU(M))  being  considered  in  con¬ 
structing  the  T 's . 

MU(M) 

cos  0m.  (See  DRAW  glossary). 
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NOBUFF  None  The  number  of  output  buffer  (BUFF2) 

loads  filled  per  inward  and  outward 
sweep  of  DRAW  along  one  horizontal 
layer  of  zones  (J)  in  direction 

(Not  a  function  of  M  or  J) 

NOO  None  BUFF2(1) 

The  number  of  inward  and/or  outward 
zone  sweeps  contained  in  the  current  out¬ 
put  buffer  load  BUFF2.  (Each  buffer  load 
must  contain  at  a  minimum  one  complete 
(inward  or  outward)  zone  sweep). 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 


PI 

IT 

TT  • 

pp 

A<b  =  P 

tt/LMAX,  a  constant, 

'Vi 

1 

1 

wl*- 

Q 

None 

Temporary  storage 

QP 

None 

Temporary  storage 

R 

None 

Temporary  storage 

RP 

None 

Temporary  storage 

SINLP(L) 

Sin  (PP*L) 

SMU(M) 

\l  l 

1  m 

Sin  (0  ) 

SUM 

None 

In  checking  the  sums 

given  M,  J ,  I,  LP: 


SUMOO  =  ^  ETAIO(L,  LP) 

L=L2P1 ,  LMAX 

SUMTT  =  ETAIT(L,  LP) 

L=L2P1 ,  LMAX 

SUM  =  SUMOO  +  SUMTT 

(should  =  1 . ) 
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SUMB(I,  LP) 


SUMO(I,LP) 


SUMOO 

SUMTT 

TANN 

TOLER 


W(M) 


X(I) 


None 


None 


Given  M,J,I,LP,  in  SUBROUTINE 
OUTWRD : 

SUMB(I,  LP)=SUMB(I,  LP) 

+  ^  ETABO(L,  LP) 

L=L2P1 ,  LMAX 

+  2  ETABT(L,LP) 

L=L2P1 ,  LMAX 

Given  M,J,I,LP,  in  SUBROUTINE 
OUTW 

SUMO(I,  LP)=SUMO(I,  LP) 

+  ^2  ETAOO(L.LP) 

L=L2P1 ,  LMAX 


None 

None 


+  ^ 2  ETAOT(L,LP) 
L=L2P1,  LMAX 
See  SUM 
See  SUM 


T 

None 


-Mm,l 

2 


Tan  (6  ) 

'nr 

Relative  error  criterion  imposed  upon 
each  integration  performed  by  SUB¬ 
ROUTINE  SINT 

(in  decimal  fraction) 

(input  on  card  in  DRAW) 

|cos(M*A0)  -  cos((M-l)*A0)  |  *  ~ 


ri  Outer  radius  of  radial  hydro  cells  (I.J) 

J=1 ,  JMAX 

(in  cm) 
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XH(L)  None  Given  M,  J ,  I,  L  : 

The  radial  coordinate  of  the  inter¬ 
section  of  the  characteristic  ray  of  fan  L 
and  the  "nearest  zone  face"  (see  DH(L)) 

(in  cm) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

XI  None  Temporary  storage 

XMAX  r^  =  X(I),  the  outer  radius  of  the  radial  hydro 

zone  currently  being  considered  (trans¬ 
ferred  to  SUBROUTINES  IN,  OUT,  and 
BOT) 

(in  cm) 

XMIN  ri  1  ”  X(I-l),  the  inner  radius  of  the  radial 

hydro  zone  currently  being  considered 
(transferred  to  SUBROUTINES  IN,  OUT 
and  BOT) 

(in  cm) 

XV(L)  None  Given  M,  J,  I,  L : 

The  radial  coordinate  of  the  inter¬ 
section  of  the  characteristic  ray  of  fan  L 
and  the  "nearest  zone  surface"  (see 
DV(L)) 

(in  cm) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

YH(L)  None  Given  M,  J,  I,  L  : 

Y(J-|)  -  the  axial  coordinate  corres¬ 
ponding  to  XH(L) 

(in  cm) 

(part  of  "DRAW  data"  transferred  to 
TRAN2) 

YV(L)  None  Given  M,  J, I,  L. : 

Y(J-j)  -  the  axial  coordinate  corres¬ 
ponding  to  XV(L) 

(in  cm) 

(part  of  "DRAW  data"  transferred  to 

_ TRAN2) _ 
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FLOW  OF  CONTROL  IN  SUBROUTINE  DISTNC 

Given  a  range  of  fans(LIMl,  LIM2),  the  current  polar  angle  0m, 
the  direction  of  the  current  sweep  in  SUBROUTINE  DRAW,  and  the  current 
zone  (I,  J)  under  consideration  in  SUBROUTINE  DRAW,  SUBROUTINE 
DISTNC  calculates  the  "length,  D,  of  the  characteristic  ray"  of  the  speci¬ 
fied  fans  in  zone  (I,  J)  and  the  coordinates  of  each  ray's  intersection  with 
"the  nearest  zone  face," 

Given  zone  (I,J),  the  following  definitions  are  in  order: 

A.  Fans  measured  on  horizontal  face  Y(J) 

The  "characteristic  ray"  of  fan  L  is  a  ray  measured  from  the 
midpoint  of  the  top  face  of  zone  (I,J),  [X(I-1/ 2) ,  Y(J)],  in  a 
direction  specified  by  azimuthal  angle  ♦=  ,MAX+1-L  anc*  P°^ar 
angle  0=  it  -  arccos  [MU(M)]  (see  Fig.  13.) 

The  "iength,  D,  of  the  characteristic  ray"  is  the  distance 
from  [xr-l/2),Y(J)]  in  the  above  specified  direction  to  the 
"nearest  zone  face"»  which  could  be  the  outside  face  of  zone 
(I,  J),  the  bottom  face  of  zone  (I,  J)  or  the  inside  face  of  zone 

(I.J). 

B.  Fans  measured  on  vertical  face  X(I-l)  or  X(I) 

1)  Sweeping  outward,  L  >  L2  fFans  measured  on  face  X(I)J  . 

The  "characteristic  ray"  of  fan  L  is  a  ray  measured  from 
the  midpoint  of  the  outside  face  of  zone  (I,  J),  [X(I),  Y(J-l/2)]  , 
in  a  direction  specified  by  azimuthal  angle  <|>  =  + 1  -  L 

.  and  polar  angle  9=  ir  -  arccos  [MU(M)]  (See  Fig.  14.  ) 

The  "length,  D,  of  the  characteristic  ray"  is  the  distance 
from  [X(I),  Y(J-l/2)]  in  the  above  specified  direction  to  the 
"nearest  zone  face,"  which  could  be  the  bottom  face  of  zone 
(I,J),  the  inside  face  of  zone  (I,  J),  or  the  outside  face  of 
zone  (I,J). 
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2)  Sweeping  inward,  L  -  L 2  [fans  measured  on  face  X(I-l)]. 

The  "characteristic  ray"  of  fan  L  is  a  ray  measured  from  the 
midpoint  of  the  inside  face  of  zone  (I,J),  [X(I-l),  Y(J-1/2)1,  in  a 
in  a  direction  specified  by  azimuthal  angle  4>  =  ^LMAX  +  1  -L  an<^ 
polar  angle  9  =  n  -  arccos  [MU(M)]  (see  Fig,  15), 

The  "length,  D,  of  the  characteristic  ray"  is  the  distance 
from  [X(I-l),  Y(J-l/2)]  in  the  above  specified  direction  to 
the  "nearest  zone  face,"  which  could  be  the  bottom  face  of 
zone  (I ,  J )  or  the  outside  face  of  zone  (I,J). 

In  the  coding,  the  projection  of  D  in  the  horizontal  plane  containing 
the  characteristic  ray's  origin  is  first  calculated,  and  then  the  three- 
dimensional  length  is  computed. 

NOTE:  The  coordinates  (x,y)  of  the  intersection  of  the  "char¬ 
acteristic  ray"  and  "the  nearest  zone  face"  are  calculated;  however, 
y'  =  [Y(J-l/2)-y]  ir  returned  to  SUBROUTINES  INWARD  and  OUTWRD 
instead  of  th  axial  coordinate,  y.  This  feature  is  to  enable  SUB¬ 
ROUTINE  TRAN2  to  reconstruct  the  axial  coordinate  y>pH.AN2 
polar  directions  0  <  ir/2  (in  which  case  YjraN2  =  and  0  -> 

ir/2  (in  which  case  =  Y(J-l/2)  +  y')  using  the  restrictions  that 

the  M  =  l,  MUMAX,  must  be  symmetric  about  0  =  tr/2. 
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Glossary  of  Variables  Used  in  SUBROUTINE  DISTNC 


FORTRAN 

Report 

Label 

Label 

Description 

A 

None 

Temporary  storage. 

B 

None 

Temporary  storage. 

BBB 

None 

Temporary  storage. 

COSPHI(L) 

Co  s<fy 

-  cos  jjl  -  |jA<*>J 

Cos  (PHI(L)). 

DBGPRT 

None 

The  debug  print  control: 

DBGPRT  s  i0~^®  means  debug  print 
desired;  otherwise,  debug  print  not 
desire  d. 

DH(L) 

t 

Given  M,  J,I,  L: 

The  length  of  the  characteristic  ray 
of  fan  L  measured  on  the  horizontal  face 
Y(J)  of  zone  (I,J). 

(in  cm) 

DHH 

None 

Given  M,  3,1,  L: 

The  projection  of  DH(L)  onto  plane 
Y(J). 

(in  cm) 

DV(L) 

t 

Given  M,  J,  t,  L: 

The  length  of  the  characteristic  ray  of 
fan  I.  measured  on  vertical  face  X(I)  or 
X(I-l)  of  zone  (I.J). 

(in  cm) 

DVV 

None 

Given  M,  J,I,  L: 

The  projection  of  DV(L)  onto  plane 

W-f) 

(in  cm) 

DX(I) 

j*  «  r 

i  i-1 

Radial  zone  length  of  hydro  zones  (1,2), 

J -1 ,  JMAX 
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DY(  J) 


HELP 

HIT 


I 


IBACK 

II 

IMAX 

ISENDD 


ISWEEP 


J 

K 


h  =  z.  -  z. 

J  J-l 


None 

None 


None 


None 


i 

max 

None 


None 


j 

None 


Vertical  length  of  hydro  zones  (I,  J), 

J = 1 ,  J  MAX 

(in  cm) 

Temporary  storage 

In  computing  characteristic  ray  lengths, 
the  first  vertical  zone  boundary  pierced 
by  the  current  characteristic  ray 

(in  cm) 

In  calculating  the  lengths  of  characteristic 
rays  originating  from  vertical  zone  faces: 

1=11-1  if  current  sweep  is  inward 
1=  II  if  current  sweep  is  outward 

such  that  X(I)  is  the  face  from  which  the 
current  characteristic  ray  is  measured. 

If  calculating  the  characteristic  ray 
lengths  originating  from  horizontal  zone 
faces:  I=H 

Flag  U6ed  in  computing  XV(L) 

Index  of  the  current  radial  hydro  zone  with 
outer  radius  X(H)  (  I  of  SUBROUTINE 
INWARD  or  OUTWRD) 

The  number  of  radial  hydro  zones 

A  flag: 

=  1  means  compute  lengths  of  char¬ 
acteristic  rays  originating  from  a  vertical 
zone  face 

=  2  means  compute  lengths  of  char¬ 
acteristic  rays  originating  from  a 
horizontal  zone  face 

Current  direction  of  DRAW  sweep: 

=  1  means  sweeping  inward 

=  2  means  sweeping  outward 

Index  of  the  current  axial  (vertical)  hydro 
zone  with  upper  boundary  Y(J) 

A  running  index 
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L 

£ 

L2 

None 

LIM1 

None 

LIM1P 

None 

LIM2 

None 

LIM2P 

None 

LMAX 

^max 

M 

m 

MU(M) 

m 

PHI(L) 

*, 

SMU(M) 

fcv 

*  .  m 

X(I) 

r . 

l 

XH(L) 

None 

Fan 

LMAX/2 

=  LLOW  in  SUBROUTINES  INWARD  and 
OUTWRD 

=  complement  of  highest  index  of  the  fans 
for  which  characteristic  ray  lengths  are 
to  be  calculated 

An  index  limit  used  in  a  debug  print 
(complement  of  LIM2) 

=  LHI  in  SUBROUTINES  INWARD  and 
OUTWRD 

=  complement  of  the  lowest  index  of  the 
fans  for  which  characteristic  ray  lengths 
are  to  be  calculated 

An  index  limit  u  sed  in  a  debug  print 
(complement  of  L1M1) 

The  total  number  of  fans  of  directions  to 
be  considered  in  the  "DRAW  subroutine 
sequence.  " 

Index  of  the  current  polar  angle  0^ 
(arccos  MU(M))  being  considered  in  con¬ 
structing  the  q's. 

Cos  0  .  (See  DRAW  glossary.) 

m 

♦|.  (See  DRAW  glossary.) 

Sin  (0  ) 
m 

Outer  radius  of  radial  hydro  zones 
(I,J),  J=1 , JMAX 

(in  cm) 

Given  M,  J,I,  L: 

The  radial  coordinate  of  the  inter¬ 
section  of  the  characteristic  ray  of  fan 
L  and  the  "nearest  zone  face"  (see 
DH(L)) 

(in  cm) 
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XV(L)  None 


YH(L)  None 


YV(L)  None 


Given  M,  J,I,L: 

The  radial  coordinate  of  the  inter¬ 
section  of  the  characteristic  ray  of  fan 
L  and  the  "nearest  zone  face"  (see 
DV(L)) 

(in  cm) 

Given  M,  J,I,L: 

Y(J-£-)-  [the  axial  coordinate  corres¬ 
ponding  to  XH(L)] 

(in  cm) 

Given  M,  J,I,  L: 

Y(J-^-)  -  [the  axial  coordinate  corres¬ 
ponding  to  XV  (L)] 

(in  cm) 


FLOW  OF  CONTROL  IN  FUNCTION  JO(J.I.L.Ml 


Given  the  vertical  cylindrical  surface  X(I)  of  height  DY(J),  the  polar 
angle  0m  (arccos  MU(M))  with  range  (2*W(M)),  and  fan  L  with  range 

A*,.  FUNCTION  JO  calculates  the  rate  at  which  energy  is  passing  through 
surface  X(I)  of  area  DY( J)*2*ir*X(I)  in  fan  L  in  direction  MU(M)  in  the  case 
of  inotropic,  homogeneous  radiation  <x=S=0  divided  by  IQ,  the  intensity  of 
the  radiation  field  (or,  equivalently,  with  I  =  1)  (See  Fig.  16): 


JO  = 


Y(J)  (L)*PP 


■i  /  / 


I  * 
o 


Y(J-l)  (L-1)*PP 


2  *  *  *  X(I)  *  sin  0  *  |cos<J>  I  AM  d$dz 

m  f  m 


=  X(I)*ain  em  *  4  *  tt  *  W.(M)  *  DY(J)*2*sin(^)  (cos  [l.  i]  | 
(See  Eq.  151. ) 
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Glossary  of  Variables  Used  in  FUNCTION  JO(J  , It  L>  M) 


FORTRAN 

Report 

Label 

Label 

Description 

COSPHI(L) 

Cosfy 

=  cos  ^(f-|-)A4>^ 

cos  (PHI(L)) 

DY(  J) 

h 

Y(J)  -  Y(J-l) 

(in  cm) 

FORPI 

4ir 

4tr 

I 

i 

Index  of  the  current  radial  hydro  zone 
with  outer  radius  X(I) 

J 

j 

Index  of  the  current  axial  (vertical)  hyd 
zone  with  upper  boundary  Y(J) 

M 

m 

Index  of  the  current  polar  angle  6m 
(arccos  MU(M)  being  considered 

Afy 

sin  (nr) 

SINP2 

sin  ~Y 

SMU(M) 

sin  <«m> 

W(M) 

\^m\ 

2 

\H  ,i  -f*  l| 

'm+2  m-2 

2 

|cos[M*AG]  -  cos[(M-l)*A6]  |*  j 

X(I) 

r. 

Outer  radius  of  radial  hydro  zones 

i 

(I,  J),  J  =  1 ,  JMAX 

(in  cm) 


FLOW  OF  CONTROL  IN  FUNCTION  JB(JtI, L,M) 

2  2 

Given  horizontal  annulus  DX(I)  of  area  tt[x  (1)-X  (I-l)J,  the  polar 
angle  6m  (arccos  MU(M))with  range  A^m  (2*W(M)),  and  fan  L  with  range 
,  FUNCTION  JB  calculates  the  rate  at  which  energy  is  passing  through 
annulus  DX(I)  in  fan  L  in  direction  MU(M)  in  the  case  of  isotropic, 
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AA(L)  At  a  given  radius  X(I) : 

AA(L)  =  SINLP(L)*X(I) ,  the  distance 
of  closest  approach  (to  the  vertical  axis) 
of  a  horizontal  ray  making  an  azimuthal 
angle  (tt-L*PP)  with  a  radius  vector  at 
radius  X(I) 

(in  cm) 


FORPI 

4n 

4ir 

I 

i 

Index  of  the  current  radial  hydro  zone 
with  outer  radius  X(I) 

11 

None 

ARITHMETIC  STATEMENT  FUNCTION 

L 

1 

Fan  index 

L2 

None 

LMAX/ 2 

LIM1 

None 

Temporary  storage 

LIM2 

None 

Temporary  storage 

LL 

None 

Index  used  in  calculation  of  JB 

LMAX 

*max 

The  total  number  of  fans  being  con¬ 
sidered 

M 

m 

Index  of  the  current  polar  angle  0m 
(arccos  MU(M))  being  considered 

MU(M) 

cos(0  ) 
m 

=  cos  0 

m 

PI4 

ir/4 

tt/4 

W(M) 

R>l 

A 

|cos[M*A6]  -  cos[(M-l)*A0]  |  *  - 

,i  |i  i| 

1  m+i  m-2 1 

2 

X(I) 

r. 

1 

Outer  radius  of  radial  hydro  zones 

(I,J),  J  =  1 , J MAX 
(in  cm) 
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FUNCTION  SINT  (A1 ,  B 1 ,  EPS1 ,  FUNC) 


FUNCTION  SINT  numerically  evaluates  the  definite  integral  I, 


I 


x=B  1 


/ 

x=Al 


"FUNC"  dx 


according  to  Simpson's  method  prescribed  by  the  COMMUNICATIONS  OF 
THE  ACM  ALGORITHM  182  (Ref.  7)  where: 

A1  =  the  lower  limit  of  integration 
B1  =  the  upper  limit  of  integration 
EPS1  =  the  accuracy  criterion  in  the  units  of 
the  variable  of  integration,  x. 

"FUNC"  =  the  name  of  the  FORTRAN  FUNCTION 
routine  which  evaluates  the  desired 
integrand  as  a  function  of  x, 


FLOW  OF  CONTROL  IN  FUNCTION  IN(Z) 

FUNCTION  SINT  is  called  from  SUBROUTINE  OUTWRD  to  evaluate 
an  i\  integral  I  of  the  form 


I 


/ 


[INTEGRAND]  dZ 


and  FUNCTION  IN  is  in  turn  called  by  SINT  to  evaluate  the  INTEGRAND 
(which  is  a  function  of  Z)  several  times  during  its  evaluation  of  I.  The 
INTEGRAND  is  of  the  form: 

INTEGRAND  =  sin  [Avy] 
where  A  =  PP*(LP-1) 

or 

A  =  it  -  arcsin  [x(I)  - 
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V=  a  limiting  angle  (see  GAM  in  glossary) 
Glossary  of  Variables  Used  in  FUNCTION  IN(Z) 


FORTRAN 

Label 


Report 

Label 


Description 


ANGL1 


None 


=  PP  *  (LP-1),  the  angle  4^,  ^  measured 
at  the  inside  of  the  current  zone,  or 
surface  X(I-  1) 


DELTY 

GAM 


HELP1 


LMDA 


TANN 


None 


=  it  -  ASIN 


fail] 


*SINLP(L- 1) 
X(I-l) 


angle  ^  measured  at  the  inside  of  the 
current  zone,  or  surface  X(I-l) 

(in  radians) 

(value  received  from  SUBROUTINE 
OUTWRD) 

DY(J) 

The  largest  azimuthal  angle  (20)  at  Z 
units  above  Y(J-l)  which  a  ray  entering 
the  inside  face  X(I-l)  of  the  current  zone 
can  make  with  the  radius  vector  and 
intersect  the  top  zone  face  before  inter¬ 
secting  the  outer  zone  face 

(in  radians) 

Temporary  storage  information  received 
from  SUBROUTINE  OUTWRD 

Given  J  and  direction  0  : 

m 

The  horizontal  distance  a  ray  will 
travel  between  horizontal  plane  Y(J-l) 

+  Z  and  Y(J);  or , 

[DY(J)  -  Z  #  TAN(0m)J 


TAN(0  ) 
m 
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XMAX 


r. 


1 


XMIN  r.  . 

l-l 


Z 


h -t 


Outer  radius  of  the  radial  hydro  zone 
currently  being  considered  (=X(I)) 

(in  cm) 

(value  received  from  SUBROUTINE 
OUTWRD) 

Inner  radius  of  the  radial  hydro  zone 
currently  being  considered  (=X(I-1)) 

(in  cm) 

(value  received  from  SUBROUTINE 
OUTWRD) 

The  distance  above  Y(J-l)  at  which  the 
integrands  for  ETAIO(L.LP)  and 
ETAIT(L,  LP)  are  to  be  evaluated  for 
FUNCTION  SINT 

(in  cm) 

(value  received  from  FUNCTION  SINT) 


FLOW  OF  CONTROL  IN  FUNCTION  BOT(Z) 

FUNCTION  SINT  is  called  from  SUBROUTINES  INWARD  and  OUTWRD 
to  evaluate  ri  integrals  and  FUNCTION  BOT  is  in  turn  called  by  SINT  to 
evaluate  the  integrands  (which  are  a  function  of  radial  distance)  for  these 
integrals  several  times  during  the  course  of  each  integration.  The  follow¬ 
ing  table  specifies  each  integrand  type  and  relationship  to  the  r|  calculation 
in  SUBROUTINES  INWARD  or  OUTWRD: 


Subroutine 
in  which 
integral  is 
used 

The  n 
associated 
with  the 
integral 

For  current 
fan, 

direction  in 
which  rays 
ENTER  EXIT 

Defining 
flags  in 
this 

routine 

Equation 
specifying 
integrand 
and  integral 

INWARD 

nB-I 

IN 

IN 

ISEND=1 

Eq.  (158) 

INWARD 

^B— T 

IN 

IN 

ISEND=2 
IAID  =  1 

Eq.  (171) 

OUTWRD 

nB— 0 

IN 

OUT 

ISEND=2 
LAID  =4 

Eq.  (174) 

OUTWARD 

nB— 0 

OUT 

OUT 

ISEND=2 

IAID=5 

Eq.  (175) 
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Subroutine 
in  which 
integral  is 
used 

The 

associated 
with  the 
integral 

For  current 
fan, 

direction  in 
which  rays 
ENTER  EXIT 

Defining 
flags  in 
this 

routine 

Equation 
specifying 
integrand 
and  integral 

OUTWRD 

nB-T 

IN 

OUT 

ISEND=2 
LAID  =  2 

Eq.  (172) 

OUTWRD 

nB-T 

OUT 

OUT 

ISEND  =  2 

LA  ID  =  3 

Eq.  (173) 

Glossary  of  Variables  Used  in  FUNCTION  BOT(Z) 


FORTRAN  Report 

Label  Label 


A 


w 


AAB  None 

ANGL1  None 


Description 


In  computing  the  integrands  for  ETABT 
(L,LP)  and  ETABO(L.LP),  A=  the  upper 
azimuthal  angle  limit;  that  is, 

If 

ETA  =  £  f  r  [(A-B)vo.]  dr 
ro 

and  B  =  the  lower  azimuthal  angle  limit. 

Temporary  storage 

In  computing  the  integrand  for  ETABI 
(L,  LP) ; 

ANGLi  =  X{I)  *  SINLP(LP),  the 

distance  of  closest  approach 
of  a  ray  with  azimuthal 
angle  <J>  =  LP*PP  measured 
at  X(I) 


or 

=  X(I-l)  *  SINLP(L),  the 
distance  of  closest  approach 
of  a  ray  with  azimuthal 
angle  $  =  L*PP  measured 
at  X(I-l) 
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ANGL2 


B 

GAM 


GAM1 

GAM2 


HELP 

HELP1 

HELP2 

I 


In  computing  the  integrands  of  ETABI 
(L,LP)  and  ETABO(L.LP): 

ANGL1  =  X(I)  *  SINLP(LP) 

(in  cm) 

None  =  X(I)  *  SINLP(LP-l),  the  distance  of 

closest  approach  of  a  ray  with  azimuthal 
angle  <j>  =  (LP-1)*PP  measured  at  X(I) 

(in  cm) 

a  See  A 


y 


None 

None 


None 

i 


In  computing  the  integrand  for  ETABI 
(L,  LP) : 

The  largest  azimuthal  angle  (>0)  which 
a  ray  entering  the  bottom  face  of  the 
current  zone  at  radius  Z,  X(I-l)  <  Z  < 
X(I),  can  make  with  the  radius  vector 
and  intersect  the  inside  zone  face  before 
intersecting  the  outside  or  top  zone  faces. 

In  computing  the  integrands  for  ETABT 
(L.LP)  and  ETABO(L.LP): 

Temporary  storage 

See  GAM 

The  largest  azimuthal  angle  (>GAM1) 
that  a  ray  entering  the  bottom" face  of 
the  current  zone  at  radius  Z,  X(I-l)  <  Z  < 
X(I)i  can  make  with  the  radius  vector 
and  intersect  the  top  zone  face  before 
intersecting  the  outside  zone  face 

Temporary  storage 

Temporary  storage  information  received 
from  SUBROUTINES  INWARD  or  OUTWRD 

Same  as  above 

Index  of  the  current  radial  hydro  zone 
with  outer  radius  X(I) 
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LAID  None  Flag: 

In  computing  the  integrand  for  ETABT 

(L,  LP) : 

=  1  means  rays  enter  the  current 

zone's  bottom  face  going  inward, 
and  exit  the  zone's  top  face  going 
inward 

=  2  means  rays  enter  the  current 

zone '6  bottom  face  going  inward, 
and  exit  the  zone's  top  face  going 
outward 

=  3  means  rays  enter  the  current 

zone's  bottom  face  going  outward, 
and  exit  the  zone's  top  face  gcvig 
outward 

In  computing  the  integrand  for  ETABO 

(L.LP): 

=  4  means  rays  enter  the  current 
zone's  bottom  face  going  inward, 
and  exit  the  zone's  outside  face 
going  outward 

=  5  means  rays  enter  the  current 

zone's  bottom  face  going  outward, 
and  exit  the  zone's  outside  face 
going  outward 

(value  received  from  SUBROUTINES 

INWARD  or  OUTWRD) 

ISEND  None  Flag : 

=  1  means  integrand  for  ETABI 

(L,  LP)  desired 

=  2  means  integrands  for  ETABT 

(L,  LP)  or  ETABO(L.LP)  desired 

(value  received  from  SUBROUTINE 

INWARD  or  OUTWARD) 


.•O 
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LMDA  hr 


PI 

XMAX 


XMIN  r. 

l-l 


Z 


r 


Given  J  and  direction  0 

m 

The  horizontal  distance  a  ray  will 
travel  in  horizontal  cell  layer  DY(J) 
between  intersections  with  surface 
Y(J-l)  and  Y(J) ;  or, 

DY( J)  *  TAN(0m) 

(iu  cm) 

(value  received  from  SUBROUTINES 
INWARD  or  OUTWRD) 

t r 

The  outer  radius  of  the  radial  hydro 
zone  currently  being  considered  (=X(I)) 

(in  cm) 

(value  received  from  SUBROUTINES 
INWARD  or  OUTWRD) 

The  inner  radius  of  the  radial  hydro  zone 
currently  being  considered  (=X(I-1)) 

(in  cm) 

(value  received  from  SUBROUTINE 
INWARD  or  OUTWRD) 

The  radial  coordinate,  r,  at  which 
integrands  for  ETABI(L,LP),  ETABT 
(L,LP),  or  ETABO(L,LP)  are  to  be 
evaluated  for  FUNCTION  SINT 

(in  cm) 

(value  received  from  FUNCTION  SINT) 


FLOY/  OF  CONTROL  IN  FUNCTION  OUT(Z) 

FUNCTION  SINT  is  called  from  SUBROUTINES  INWARD  and  OUTWRD 
to  evaluate  t|  integrals  and  FUNCTION  OUT  is  in  turn  called  by  SINT  to 
evaluate  the  integrands  (which  are  a  function  of  axial  distance)  for  these 
integrals  several  times  during  the  course  of  each  integration.  The 
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following  table  specifies  each  integrand  type  and  relationship  to  the  t|  cal¬ 
culation  in  SUBROUTINES  INWARD  or  OUTWRD: 


SUBROUTINE 
in  which 
integral  is 
used 

The  r| 
associated 
with  the 
integral 

For  current 
fan, 

direction  in 
which  rays 

Defining 
flags  in 
this 
routine 

Equation 
specifying 
integrand 
and  integral 

ENTER  EXIT 

INWARD 

^O-I 

IN 

IN 

ISEND=1 

Eq.  157 

INWARD 

^n-^T 

IN 

IN 

ISEND=2 

Eq.  159 

LAID=1 

OUTWRD 

^O-^T 

IN 

OUT 

ISEND=2 

Eq.  161 

IAID=2 

OUTWRD 

o 

o 

IN 

OUT 

ISEND  =  3 

Eq.  162 

Glossary  of  Variables  Used  in  FUNCTION  OUT(Z) 
FORTRAN  Report 

Label  Label  Description 


A 


w 


ANGL1  None 


In  computing  integrands  for  ETAOT 
(L,  LP)  and  ETAOO(L,LP),  A  =  the 
upper  azimuthal  angle  limit;  that  is, 


ETA 


[sin  (A)  -  sin  (B)]  v  O.dZ 


and  B  =  the  lower  azimuthal  angle  limit 
(in  radians) 


In  computing  the  integrand  for  ETAOI 
(L,  LP) : 

=  PP  *  LP , 

or 


■  * SINLP(L)-  *t 

at  X(I) 


measured 
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ANGL2 

B 

DELTY 

GAMMO(IG.Z) 


LAID 


In  computing  the  integrands  for  ETAOT 
(L,LP)  and  ETAOO(L.LP): 

=  PP*(LP-1), 

(in  radians) 

None  In  computing  the  integrand  for  ETAOT 

(L,  LP) : 

=  PP  *  LP,  4>i, 

(in  radians) 
a  See  A 

(in  radians) 
h  DY(J) 

(in  cm) 

y  IG  =  1  : 

=  the  largest  azimuthal  angle  (>  0) 
which  a  ray  entering  Z  units  above 
Y(J-l)  through  the  outside  face  of 
the  current  zone  can  make  with 
the  radius  vector  and  intersect  the 
inside  zone  face  before  intersecting 
the  top  zone  face 

Y  IG  =  2 : 

o 

=  the  largest  azimuthal  angle  (>  0) 
which  a  ray  entering  Z  units  above 
Y(J-l)  through  the  outside  face  of 
the  current  zone  can  make  with  the 
radius  vector  and  intersect  the  top 
zone  face  before  intersecting  the 
outside  zone  face 

(in  radians) 

None  Flag : 

In  computing  the  integrand  for  ETAOT 
(L,LP): 

=  1  means  considering  rays  entering 

the  current  zones'  outer  face  going 
inward,  and  exiting  the  zone's  top 
face  going  inward 
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ISEND 


TANN 

XMAX 


XMIN 


Z 


—  2  means  considering  rays  entering 
the  current  zone's  outer  face  going 
inward,  and  exiting  the  zone's  top 
face  going  outward 

(value  received  from  SUBROUTINES 
INWARD  and  OUTWRD) 

None  Flag: 

=  1  means  integrand  for  ETAOI 
(L,  LP)  desired 

=  2  means  integrand  for  ETAOT 
(L,  LP)  desired 

=  3  means  integrand  for  ETAOO 
(L,  LP)  desired 

(value  received  from  SUBROUTINES 
INWARD  and  OUTWRD) 

t  TAN(0m) 

rj  The  outer  radius  of  the  radial  hydro  zone 

currently  being  considered  (=X(I)) 

(in  cm) 

(value  received  from  SUBROUTINES 
INWARD  and  OUTWRD) 

ri_l  The  inner  radius  of  the  radial  hydro  zone 

cu-rently  being  considered  (=  X(I-l)) 

(in  cm) 

(value  received  from  SUBROUTINES 
INWARD  and  OUTWRD) 

h  "  ^  The  distance  above  Y(J-l)  at  which  the 

integrands  for  ETAOI(L.LP),  ETAOT 
(L,  LP),  and  ETAOO(L,LP)  are  to  be 
evaluated  for  FUNCTION  SINT. 

(in  cm) 
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FLOW  OF  CONTROL  IN  FUNCTION  GAMMO  (IG,Z) 

FUNCTION  GAMMO  is  called  by  FUNCTION  OUT  to  calculate  two 
limiting  angles  that  are  a  part  of  the  integrands  calculated  in  OUT. 
GAMMO  returns  the  value  of  one  of  these  limiting  angles  for  each  call  to 
the  FUNCTION.  (See  description  of  GAMMO  (IG,Z)  in  OUT  glossary.) 

Glossary  of  Variables  Used  in  FUNCTION  GAMMO  (IG,Z) 


FORTRAN 

Label 

Report 

Label 

Description 

ASN 

None 

.  /X(I-1)\ 

Arcsin  (-5^ 

(in  radians) 

(Value  received  from  SUBROUTINES  INWARDS 
or  OUTWRD) 

DELTY 

h 

DY(J) 

HLP 

None 

Temporary  storage 

I 

i 

Index  of  the  current  radial  hydro  zone  with 
outer  radius  X(I) 

IG 

None 

Flag  (See  OUT  Glossary) 

LMDA 

n 

Given  J  and  direction  0m: 

The  horizontal  distance  a  ray  will  travel 
between  horizontal  plane  Y(J-l)  +  Z  and  Y(J); 
or, 

(DY(J)  -  Z)  *  TAN(0  ) 

m 

(in  cm) 

LMDA2 

r2l2 

LMDA2 

TANN 

T 

TAN(  0  ) 
m 

XMAX 

r. 

1 

Outer  radius  of  the  radial  hydro  zone  currently 
being  considered  (=X(I)) 

(in  cm) 

XMIN 

ri-l 

Inner  radius  of  the  radial  hydro  zone  currently 
being  considered  (=  X(I-l)) 

(in  cm) 

156 


AFWL-TR -67-131,  Vol  II 

Z  h  -  4  The  distance  above  Y(J-l)  at  which  GAMMO  is 

to  be  calculated  for  FUNCTION  OUT 

(in  cm) 

(Value  received  from  FUNCTION  OUT  which 
in  turn  receives  it  from  FUNCTION  SINT) 
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SECTION  VII 

FLOW  OF  CONTROL  IN  SUBROUTINE  TRAN2  AND  THE 
"TRANSPORT  SUBROUTINE  SEQUENCE"  FOR  A  MONO- 
FREQUENCY.  EXPLICIT  TEMPERATURE  PROBLEM 


SUBROUTINE  TRAN2  specifies  the  over -all  flow  of  control  through 
the  "transportation  subroutine  sequence"  (shown  in  Fig.  18).  Transport 
calculations  along  characteristic  ray  paths  supplied  by  SUBROUTINE 
DRAW  are  performed  according  to  the  temperatures  and  optical  depths 
of  the  hydro  zones  and  the  q's,  or  "view  factors,"  coupling  the  energy 
passing  through  neighboring  faces  of  these  hydro  zones. 

"Transport  calculations"  for  a  given  hydro  zone  (I,J)  and  a  given 

direction  of  transport  defines  the  following  process: 

/inward  and  upward  \ 
I  outward  and  upward  1 
1  inward  and  downward  / 
\outward  and  downward/ 


Given  the  direction  of  transport  to  be  in  an 


direction,  the  rate  at  which  energy  is  leaving  the  zone  through  each  fan  L 

\ 


on  the 


of 


(inside  and  top 
outside  and  top 
inside  and  bottom  I 
outside  and  bottom/ 


zone  faces  is  calculated  from  the  knowledge 


the  contributions  to  this  rate  from  the  rate  at  which  energy  is 
entering  the  zone  through  all  the  fans  LP  on  the 


(bottom  and  outside 

inside,  bottom,  and  outside 
top  and  outside 
inside,  top,  and  outside 


) 


zone  faces  assuming  an  isotropic, 


\V 
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TRAN2 


TOPBND 


BOTBND 


TRANS 


OUTBND 


Figure  18.  SUBROUTINES  of  the  "Transport 
Subroutine  Sequence" 


H 
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homogeneous  radiation  field  within  the  zone.  (These  contribu¬ 
tions  are  represented  by  the  term  Erp  E  in  the  transport  equa- 
tion--see  SUBROUTINE  TRANS.) 


and 


b.  how  these  contributions  are  to  be  modified  given  a  nonzero 
absorption  coefficient  and  source  associated  with  the  zone. 

(The  modification  is  specified  in  SUBROUTINE  TRANS.) 

For  a  given  polar  angle  Gj^  transport  calculations  begin  at  the  system 
bottom  boundary  and  proceed  (or  "sweep")  upward  (if  Gj^j  <  ir  /2)  or  at  the 
system  top  boundary  and  sweep  downward  (if  Gj^  >  tt  /2).  Sweeping  upward 
or  downward  for  each  zone  layer  starts  at  the  system  outside  boundary 
and  proceeds  inward,  and  then  outward  again  until  the  system  outside 
boundary  is  reached.  For  each  0j^»  M=1,MUMAX,  transport  calculations 
are  performed  for  each  zone  (I,  J)  of  the  entire  hydro  mesh. 

In  sweeping  ^Q^nward)’  the  rate  at  which  energy  is  leaving  the 
(bottom)  zone  *aces  °*  the  previous  layer  of  zones  in  all  fans  serves  as 
input  to  the  (^p*0”1)  surface  of  the  current  layer  cf  zones.  When 


starting  from  the  system  A,otl:om  j  boundary  on  a  /uPwar(*  \  sweep 

\top  /  ^downward/ 

the  input  rates  to  the  (^Qp  )  zone  faces  are  calculated  from  the  system 

(bottomX 
top  ) 


boundary  temperatures 


/BTHETA(I),  1=1 ,  IMAX 
VATHETA(I),  1=1 ,  IMAX 


) 


and 


(BOTBNDi 

TOPBND/  Per^orm  ^is  calculation.  When  sweeping 


(inward  \  ,  /inside  \ 

outward/  1  the  rate  at  which  enerS'f  is  leavinS  the  (outaidej  £a 


ce  of  the 


previous  zone  in  all  fans  L 
LP, 


/  L=1 ,  L2  \ 

’\L=L2P1 ,  LMAX /’  S6rve  as  input  t0  the  fans 
,  /  LP=1 ,  L2  \  /outside\  , 

•\LP  =  L2Pl,LMAx/°f  the  ^inside  )  face  of  the  current  zone  (except 
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for  zones  (I.J),  J  =  1.JMAX).  When  starting  an  inward  sweep  through  zones 
(IMAX..T), J  =  1,JMAX.  from  the  system  outside  boundary,  the  input  rates 
to  the  fans  LP,  LP  =  1,LZ,  are  calculated  from  the  system  outside  boundary 
temperatures  (RTHETA(J),  J  =  1 .  JMAX)  by  SUBROUTINE  OUTBND. 

In  performing  transportation  calculations  for  a  given  hydro  zone  to 
calculate  the  rate  at  which  energy  is  leaving  a  zone  face  in  a  fan  L,  the 
ray  path  of  the  "characteristic  ray"  of  fan  L  (See  SUBROUTINE  DISTNC) 
is  followed  assuming  that  the  source  is  a  linear  function  of  path  length. 

The  sources  at  the  endpoints  of  this  path  are  calculated  by  FUNCTIONS  S 
and  SRC  using  a  bilinear  interpolation  on  the  zone-centered  sources  of 
the  current  and  neighboring  zones.  If  these  sources  are  found  to  vary 
significantly  (See  FUNCTION  TRANS)  from  the  zone -centered  source  of 
the  current  zone,  the  source  is  assumed  to  be  a  constant  along  the  ray 
path  equal  to  the  current  zone's  zone-centered  source. 

In  sweeping  upward  or  downward,  the  polar  angles  are  taken  in 

the  order  ef.  »MUMAX*  ®2*  ®MUMAX-1 . ®M2*  ®M2+1  to  *Ilow  for 

the  possibility  of  a  reflecting  system  top  boundary  (a  refit  cting  system 
bottom  boundary  cannot  be  treated  with  the  above  programmed  sequencing 
of  polar  angles).  To  perform  the  above  sequencing,  the  "DRAW  data"  on 
the  "DRAW  data"  file  must  be  retrieved  in  a  special  manner.  The  "DRAW 
data"  file  is  composed  of  blocks  of  logical  records  arranged  by  SUBROU¬ 
TINE  DRAW  as  shown  below. 
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START 

©2 

JMAX 

© - * 

©2 

• 

• 

• 

• 

®  JMAX 

END 


J  MAX 


Inward  and  outward  DRAW 
sweeps 


Inward  and  outward  DRAW 
sweeps 

J  =2 


J=JMAX 


Inward  and  outward  DRAW 
sweeps 

J  =  1 


J  =JMAX 


J  =JMAX 


The  input  storage  buffer  array  BUFF  is  filled  and  used  as  the  transport 
■weeping  occurs,  and  the  "DRAW  data"  file  illustrated  above  is  manipu 
lated  in  the  following  manner: 


-  C.T 


Wi 
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©. 


Starting  the  transport  with  the  "DRAW  data"  file  positioned  at  point 

a.  Upward  sweep  for  0^:  Retrieve  data  from  blocks  ©,.  ©2- 

®  3>  •  •  •  .  ©JMAX  ^cac^  contains  one  or  more  logical  records) 
as  transport  sweeping  zone  layers  1,  2,  3,  ....  JMAX  respect¬ 
ively. 

b.  Downward  sweep  for  O^tlMAX*  backspace  one  block  '(DjmAX^ 
and  retrieve  data  from  this  block  as  transport  sweep  ng  zone 
layer  JMAX.  Then  backspace  two  blocks  to  the  ftart  o.  block 
®  JMAX  1  ant*  re*rieve  data  from  this  block  a°>  -an sport 
sweeping  zone  layer  JMAX-1.  .  .  .  etc. 

c.  Upward  sweep  for  0^:  Skip  to  point  ©  jmaX  and  retrieve  data 

from  blocks  (|)j,  ©2»  ©3*  •••»  ©  JMAX  as  transPort 
sweeping  zone  layers  1,  2,  3,  ...»  JMAX  respectively. 


etc. 

Note  that  the  number  of  logical  records  of  data  per  block  ©  i  is  a 

constant  for  all  polar  angles  0M- 

For  each  upward  or  downward  transport  sweep  associated  with 
polar  angle  0^,  the  following  quantities  are  updated: 

1)  ER(K) 

2)  EBTM,  ETOP,  ESIDE 

3)  W2(I) 

Note  each  one  of  these  quantities  must  be  doubled  since  only  one  half  of 
the  possible  fans  are  considered  by  DRAW  and  TRAN2  due  to  the  sym  • 
metry  inherent  in  a  cylindrical  system. 

At  the  end  of  SUBROUTINE  TRAN2  the  ER  array  is  checked  to  see 
if  radiation  transport  in  time  DT  will  change  the  internal  energy  of  a 
hydro  zone  by  more  than  the  allowed  amount  (SLUG);  if  it  will,  DT  is 
reduced  in  TRAN2  to  meet  this  restriction.  The  internal  energy  of  the 
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system,  ETH,  is  updated  to  include  energy  changes  by  radiation  transport 
and  the  variables  BACC,  SACC,  and  TACC  are  updated. 

INPUT  TO  "TRANSPORT  SUBROUTINE  SEQUENCE" 

Results  from  "DRAW  SUBROUTINE  SEQUENCE"  are  transferred  to 
"TRANSPORT  SUBROUTINE  SEQUENCE." 

Conditions  that  Cause  Termination  of  Execution  ir  "TRANSPOR T 
SUBROUTINE  Sequence" 


Type 

Indicator 

Description  of  Error 

INPUT 

S 1=7 . 0225 

MERGE  <  0.  and  multifrequency  problem 

INPUT 

Sl=7. 0235 

IHNU  <  1  . 

INPUT 

Sl=7. 0250 

Q  2  0.6  or  Q  50.4. 

INPUT 

S 1=7 . 0320 

XA{K)  <  0. 

INPUT/ 

EXECUTION 

Sl=7. 0522 

An  indefinite  number  has  been  created 
before  the  call  to  DVCHK, 

INPUT 

Sl=7. 1010 

IHNU  >  NHNU 

EXECUTION 

SI =7 . 1068 

DT  <  FFB,  the  minimum  time -stop  control. 

Results  from 

"Transport  SUBROUTINE  Sequence"  Transferred  to  HECTIC 

Medium 

Variables 

COMMON 

(a  possible  contribution  to)  DT 

(a  contribution  to)  ETH 
ER  (K) ,  K=2  ,  KMAX 
W2(I) ,  1=1 ,  IMAX 
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Glossary  of  Variables  Used  in  SUBROUTINE  TRAN2 


FORTRAN 

Label 

Report 

Label 

Description 

AIX(K) 

None 

The  total  internal  energy  of  zone  K  per 
unit  mass  (does  not  include  kinetic  energy) 

(in  ergs/gm) 

AMX(K) 

None 

The  mass  of  zone  K 

(in  gm) 

B(K) 

None 

In  the  multifrequency  calculation, 
temporary  storage 

BACC 

None 

t'=t  (rate  at  which  energy  is  leaving  the 
/  system  bottom  boundary  due  to 

t'=0  radiation)  dt' 


(in  ergs) 

Boundary  flags.  A,  B,  and  R  refer  to 


BCATAG 

BCBTAG 

None 

None 

j  top  (above),  bottom,  and  side  (right) 

!  system  boundarie s,  respectively.  If  0  <0, 

boundary  is  a  perfect  reflector;  otherwise, 

BCRTAG 

None 

it  is  transmittive  to  radiation  (the  side  can 
not  be  a  reflector). 

BETA 

hli 

0 

In  +h«.  rr.  altifrequency  calculation,  the 
lover  *  mit  of  the  current  frequency  band 

BETAP 

hv2 

0 

In  the  multifrequency  calculation,  the 
upper  limit  of  the  current  frequency  band 

BUFF 

None 

=  CAP.  FUFF(l)  =  NOI. 

Input  storage  array  for  the  "DRAW 
data"  that  is  to  be  retrieved  from  the 
"DRAW  data"  file. 

C  k  C  is  calculated  in  the  "DRAW  subroutine 

^  sequence"  and  used  in  the  transport 

equation  (SUBROUTINE  TRANS)  in  such  a 
way  that  transport  calculations  are  exactly 
correct  in  the  case  of  isotropic,  homo¬ 
geneous  radiation  with  s  =  <r  =  constant  and 
IQ,  the  intensity  of  the  radiation  field, 
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s 

"  Irra*  *See  E<luation  177  and  FUNCTION 
TRANS) 


(in  cm^  steradian) 
(nart  of  "DRAW  data") 


D 

t 

q 

Temporary  storage  for  the  length  of  the 
characteristic  ray  associated  with  the 
current  zone  and  fan 

(in  cm) 

(part  of  "DRAW  data") 

DBGPRT 

None 

The  debug  print  control: 

DBGPRT  >  10"^  means  debug  print 
desired;  otherwise,  debug  print  not 
de  sired 

DE 

None 

In  calculating  DT  in  TRAN2,  the  amount 
of  energy  per  unit  mass  which  a  zone  will 
lose  or  gain  in  time  DT  due  to  radiation 

(in  ergs/gm) 

DFB 

None 

In  the  multifrequency  calculation, 

15  BETAP  u3 

4  /  u 

BETAe  e  _1 

DHNU 

None 

In  the  multifrequency  calculation,  the 
width  of  the  current  frequency  band 

DT 

None 

Time  step  (which  can  be  controlled  by 
TRAN2) 

(in  sec) 

DTEMP 

None 

Temporary  storage 

DX(I) 

r.  -  r. 
i  i-l 

Radial  zone  length  of  zone  (I,  J),  I-l  ,  JMAX 

(in  cm) 

DY(J) 

h=z.  -  ;s. 

J  J-l 

Vertical  zone  length  of  zone  (I,  J)  I=1,IMAX 

E 

None 

The  total  internal  energy  per  unit  mass 
updated  by  radiation  heating  only 

(in  ergs/gm) 
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EB(I,L)  J  Given  zone  (I,  J)  and  directions  specified 

^  by  M  and  L: 

The  rate  at  which  radiant  energy  is 
entering  zone  (I,  J)  through  the  bottom  face 
(on  an  upward  sweep)  or  through  the  top 
face  (on  a  downward  sweep)  in  fan  L  in 
direction  MU(M) 


(in  ergs/  sec) 


EBTM 

None 

The  rate  at  which  energy  is  entering  the 
system  through  the  system  bottom  boundary 
in  time  DT  due  to  radiation 

(in  ergs/  sec) 

EMB1 

None 

In  the  multifrequency  calculation, 
temporary  storage 

EMB2 

None 

Same  as  EMBl 

ER(K) 

None 

The  rate  at  which  zone  K  is  gaining  energy 
due  to  radiation  in  time  DT 

(in  ergs/  sec) 

None 

In  the  multifrequency  calculation, 
temporary  storage 

ESIDE 

None 

The  rate  at  which  energy  is  entering  the 
system  through  the  system  outside 
boundary  in  time  DT  due  to  radiation 

(in  ergs/  sec) 

ET(I,L) 

J 

Given  zone  (I,J)  and  directions  specified 

q 

by  M  and  L: 

The  rate  at  which  radiant  energy  is  leaving 
zone  (I,  J)  through  the  top  face  (on  an 
upward  sweep)  or  through  the  bottom  face 
(on  a  downward  rweep)  in  fan  L  in  direction 
MU(M) 

(in  ergs /  sec) 

ETH 

None 

The  total  energy  in  the  system  at  time  T 

(in  ergs) 
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ETOP  None 


EV(I,L)  J 

q 


F  AC  None 


FACTOR  None 

FFB  None 

FIOUT  None 

FOO  None 

GG  None 


The  rate  at  which  energy  is  entering  the 
system  through  the  system  top  boundary  in 
time  DT  due  to  radiation 

(in  ergs/ sec) 

Given  zone  layer  DY(J),  zone  face  X(I), 
and  directions  specified  by  M  and  L: 

The  rate  at  which  radiant  energy  is  passing 
through  zone  surface  X(I)  in  fan  L  in 
direction  MU(M) 

(in  ergs/sec) 

The  axial  intercept  (YA)  of  the  character¬ 
istic  ray  of  the  current  fan  in  the  radiation 
transport  calculation  equals 

Y(J-l/2)+  FAC  *  8y,  where 

6y  =  YV(L)  or  YH(L) 

(See  INWARD,  OUTWRD,  or  DISTNC 
Glossary) 

In  the  above  expression  for  YA, 

FAC  -  -1. ,  if  transporting  in  an  upward 
direction  or 

=  +1 .  ,  if  transporting  in  a  downward 
direction 

Temporary  storage  used  in  the  calculation 
of  ROSS(K)  and  PLANCK(K) 

The  minimum  time -step  allowed  for 
HECTIC 

(in  sec) 

=  OLDTH.  Saved  temporarily  on  disk  in 
DRAW  and  restored  at  the  end  of  TRAN 2 

The  amount  of  energy  gain  by  the  system 
in  time  DT  due  to  radiation 

(in  ergs) 

A  dummy  argument  in  the  call  to  ES  in 
TRAN2 

Temporary  storage 


HELP 


None 
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HNU 

h  1 

In  the  multifrequency  calculation;  the  lower 
frequency  of  the  current  frequency  band 

(in  eV) 

HNU4 

None 

=  HNU4 

HNUP 

h  . 

i 

In  the  multifrequency  calculation,  the  upper 
frequency  of  the  current  frequency  band 

(in  eV) 

HNUP4 

None 

= HNUP4 

I 

i 

In  the  radiation  transport  calculation,  the 
index  of  the  current  radial  hydro  zone  with 
outer  radius  X(I),  Otherwise,  a  running  inde> 

I  ACT 

None 

Activity  flag  for  zone  K  which  is  used  in 
FUNCTION  TRANS: 

IACT  -  1  means  zone  K  is  active 
=  0  means  zone  K  is  inactive 

IBUFF 

None 

Index  of  the  last  used  entry  in  the  current 
load  of  the  input  storage  buffer  BUFF 

IHNU 

None 

In  the  multifrequency  calculation,  the  index 
of  the  current  frequency  band 

IMAX 

*max 

The  number  of  radial  hydro  zones 

IS  END 

None 

Error  flag  used  by  SUBROUTINE  EDIT 

IS  WEEP 

None 

Current  direction  of  TRAN2  sweep: 

=  1  means  sweeping  or  transporting 
inward 

=  2  means  sweeping  or  transporting 
outward 

ITAG 

None 

Flag  for  the  temperature  iteration 
calculation: 

=  0  means  perform  temperature 
iteration 

^  0  means  do  not  perform  temperature 
iteration 

J 

j 

In  the  radiation  transport  calculation,  index 
of  the  current  axial  hydro  zone  with  upper 
boundary  Y(J).  Otherwise,  a  running  index 

JADD 

None 

The  amount  by  which  the  value  of  J  is 
incremented  to  give  the  index  of  the  next 

layer  of  zones  to  be  considered  in  the 
transport  calculation 

if 
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JMAX  j  The  number  of  radial  hydro  zones 

max 

K  None  In  the  radiation  transport  calculation,  the 

index  of  the  current  zone.  Otherwise,  a 
running  index 

K1  None  Temporary  storage 

K2  None  Temporary  storage 

KDMY  None  Argument  returned  by  the  calls  to 

FUNCTION  DVCHK : 

=  1  means  an  error 
=  2  means  no  error 

KFIT  None  An  array  constructed  by  HECTIC  such 

that: 

JMR(KFIT(K),  2)  =  1  means  zone  K  is 

active 

JMR(KFIT(K),  2)  =  0  means  zone  K  is 

inactive 


KMAX 

None 

KMAX-1  is  the  total  number  of  hydro 
zones  in  the  system 

L 

Fan  index 

L2 

None 

LMAX/2 

L2P1 

None 

L2+1 

L.MAX 

£ 

max 

One  half  the  total  number  of  fans  to  be 
considered  in  the  radiation  transport 
calculation 

LP 

£' 

Fan  index 

M 

m 

Index  of  the  current  polar  angle  0m 
(arccos  MU(M))  being  considered  in  the 
radiation  transport  calculation 

M2 

None 

MUMAX/2 

MERGE 

None 

In  the  multifrequency  calculation,  a 
variable  controlling  the  merging  of 
frequency  bands 

MFTAG 

None 

Multifrequency  flag : 

=  0  means  monofrequency  problem 
t  0  means  multifrequency  problem 

MMM 

None 

A  running  index 

i- 
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MUMAX 

N 

*  NB1 


NBA 


NC 

NHNU 

NOBUFF 

NOI 

NSKP 


2M  The  maximum  number  of  discrete  polar 

directions  0m  considered  in  the  radiation 
transport  calculation 

None  A  running  index 

None  After  an  upward  t  -ansport  calculation 

sweep  for  a  given  M  £  M2,  the  downward 
sweep  is  performed  for  direction  specified 
by  M'  where  M'  =  MUMAX+i-M.  NBi  is 
the  number  of  logical  records  on  the 
"DRAW  data"  file  that  must  be  skipped 
(in  a  backward  direction)  so  that  inward 
and  outward  transport  sweeping  may  be 
performed  on  the  zone  layer  JMAX 

None  After  sweeping  inward  and  outward  one 

zone  layer  in  transporting  in  a  downward 
direction, 

NBA  =  the  number  of  records  that  must 
be  skipped  (in  a  backward  direction)  on 
the  "DRAW  data"  file  before  inward  and 
outward  transport  sweeping  may  begin  on 
the  next  lower  zone  layer 

None  Integer  value  of  cycle  number 

None  In  the  multifrequency  calculation,  the 

total  number  of  frequency  bands 

None  The  number  of  input  buffer  loads  BUFF 

that  will  be  filled  for  an  inward  or  out¬ 
ward  transport  sweep  along  one  horizontal 
layer  of  zones  (J)  in  direction  specified  by 
M 

(not  a  function  of  M  or  J) 

None  BUFF(i) 

The  number  of  inwardor  outward  DRAW 
zone  sweeps  contained  in  the  current  input 
buffer  BUFF 

None  After  sweeping  in  a  downward  direction 

M(>M2),  the  number  of  logical  records 
of  the  'DRAW  data"  file  that  must  be 
skipped  in  a  forward  direction  before  an 
upward  sweep  in  direction  specified  by 
M'  =  MUMAX-M+2  can  begin 
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NVEZ 

None 

In  the  temperature  iteration  calculation, 
the  temperature  iteration  counter 

NY 

None 

Not  used 

OLDTH 

None 

2  FIOUT 

P 

None 

=  PLANCK.  Saved  temporarily  on  disk 
in  DRAW  and  restored  at  the  end  of 

TRAN2 

PI 

IT 

ir 

PLANCK(K) 

None 

The  Planck  mean  opacity  of  zone  K  across 
the  merged  frequency  band 

(in“r) 

cm 

PUR 

None 

Not  used 

PUZ 

None 

Not  used 

Q 

None 

In  the  calculation  of  DT  in  TRAN2,  the 
amount  by  which  the  internal  energy  per 
unit  mass  of  a  zone  is  allowed  to  change 
due  to  radiation  transport 

(in  ergs/gm) 

Also,  in  the  multifrequency  calculation, 
a  parameter  used  in  the  merging  of 
frequency  bands 

ROSS(K) 

<r 

The  Rosseland  mean  absorption  coefficient 
for  zone  K 

(in  1/cm) 

RPTAG 

None 

Absorption  coefficient  flag: 

*  0  means  set  the  Planck  mean  absorp¬ 
tion  coefficient  equal  to  the  Rosseland 
mean  absorption  coefficient 
=  0  means  keep  both  absorption  coeffi¬ 
cients  distinct 

RUR 

None 

Not  used 

RUZ 

None 

Not  used 

SI 

None 

Error  flag  for  EDIT 
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SACC  None 


SLUG  None 


SP  4uSc 


STEF 


ac 

T 


t'=t  (rate  at  which  energy  is  leaving  the 
J  system  bottom  boundary  due  to 

t'  =  0  radiation)  dt' 

(in  ergs) 

In  the  calculation  of  DT  in  TRAN2,  the 
fraction  by  which  the  internal  energy  per 
unit  mass  of  a  zone  is  allowed  to  change 
due  to  radiation  transport 

The  source  value  (the  rate  at  which  radiant 
energy  is  being  generated  per  unit  volume) 
assigned  to  the  midpoint  of  zone  K  having 
temperature  THETA(K)  and  absorption 
coefficient  ROSS(K) 

=  4  *  ROSS(K)  *  STEF  *  THETA4(K) 
(in  ergs/cm^) 

Stefan's  constant  =  1.0283  x  10*2 


(in 


'111 


2  v4' 

cm  sec  cV 


SUM  None 


In  the  radiation  transport  calculation 
across  a  given  zone  (I,  J)  in  a  direction 
specified  by  fan  L  and  direction  M: 

-  /  J( appropriate  q).  (appropriate  EV) 
LP=1 ,  LMAX 


+E< 

LP=  in¬ 


appropriate  rj) 
MAX 


(appropriate  EB) 


(SUMo\ 

or  J  +  SUMB 
SUMI  / 


(in  ergs/sec) 


SUMB 

None 

See  SUM 

SUMO 

None 

See  SUM 

SV 

None 

Temporary  storage 

T4 

None 

In  merging  frequency  bands, 

=  THETA(K)4 
(in  eV4) 
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. . 

TACC 

None 

t'=t  (rate  at  which  energy  is  leaving 
f  the  system  top  boundary  due  to 

t'  -0  radiation)  d*" 

(in  ergs) 

TAU(I) 

,  2 

ir(r.  -  r. 
i  l- 

2 

j  )  The  area  of  the  annulus  defined  by  radial 
hydro  interval  I 

(mem  ) 

TEMP(1) 

None 

In  changing  DT  in  TRAN2,  the  computed 
fraction  by  which  DT  is  reduced  to  comply 
with  the  restrictive  variable  SLUG 

THE  A(K) 

e 

Temperature  of  zone  K 

(in  eV) 

THTAMX 

None 

In  the  multifreq  lency  calculation,  the 
highest  temperature  in  the  system  used 
in  deciding  whether  to  merge  frequency 
bands 

(in  eV) 

U 

None 

s  ROSS.  Saved  temporarily  on  disk  in 
DRAW  and  restored  at  the  end  of  TRAN2 

V 

None 

=  XA  s  EB.  Saved  temporarily  on  disk 
in  DRAW  and  restored  at  the  end  of 

TRAN2 

VEZ 

None 

Not  used 

iVZ(I) 

None 

The  rate  at  which  energy  is  leaving  the 
system  top  boundary  adjacent  to  zone 
(I*  JMAX)  due  to  radiation,  divided  by 
TAU(I) 

..  ergs  . 

<“  2  > 
cm  sec 

C(I) 

r. 

i 

Outer  radius  of  radial  hydro  zone  I 

CA 

None 

Temporary  storage  for  the  radial  coordi¬ 
nate  of  the  intersection  of  the  current 
fan's  characteristic  ray  and  the  "nearest 
zone  surface." 

(in  cm) 

(part  of  "DRAW  data") 
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XHH 


Y(J) 


YA 


YB 


None 


z . 
J 


None 


z.  or  z. 

J  J-l 


xadial  coordinate  of  the  midpoint  of  the 
carrent  zone,  X(I-|)+DX(I)/2 

(in  cm) 

The  vertical  coordinate  of  the  upper 
boundary  of  hydro  zones  (I,  J),  I=1,IMAX 

(in  cm) 

Temporary  storage  for  the  axial  coordi¬ 
nate  of  the  intersection  of  the  current 
fan's  characteristic  ray  and  the  '  nearest 
zo.13  surface" 

(in  cm) 

(part  of  "DRAW  data") 

Temporary  storage  (=Y(J)  or  Y(J-l)) 


^one  Y(J)-DY(J)/2,  the  axial  coordinate  of  the 

midpoint  of  zones  (I,J),  1=1,  IMAX 

(in  cm) 


FLOW  OF  CONTROL  IN  FUNCTION  TRANS  fSICiMA .  D,  XA. 

XB,  YA,  YB,  C,  SUM,  IACT,  SP)  - - 1 - 1 

FUNCTION  TRANS  performs  a  transport  calculation  across  the 
current  zone  of  SUBROUTINE  TRAN2  yielding  the  rate  at  which  energy 

being  transported  through  face  S  of  the  current  zone  in  fan  L  by  the 
equation : 


S,  j-  = 


(L,  LP)  .  E 

LP  S'-*S  S'’LP)*e-°tJ 


’) 


+  C 


5a  [ 

L  c-^l  t  SB  '  SA 

4ir<r  L 

J  A  2 

4ncr 

L  d  J 

9  ~  optical  absorption  coefficient  associated  with  the  current 


zone 
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d  =  length  in  the  current  zone  of  the  characteristic  r*\y  of  the  current 
fan  L. 

i>A  -  the  interpolated  source  at  coordinate  A,  the  starting  point  of  the 
transport  along  d. 

SB  =  the  interpolated  source  at  coordinate  B,  the  end  point  of  the 


=  'View  factor"  that  couples  the  rate  at 
which  energy  is  entering  the  current  zone 
through  face  S'  in  fan  LP  to  the  rate  at 
which  energy  is  leaving  the  current  zone 
through  face  S  in  fan  L.  (See  SUBROU¬ 
TINES  DRAW,  INWARD,  and  OUTWRD. ) 

=  the  rate  at  which  energy  is  entering  the 
current  zone  through  face  S'  in  fan  LP. 

=  the  rate  at  which  energy  is  leaving  the 
current  zone  through  face  S  in  fan  L 
assuming  o’  =S  =S  =0. 

=  A  constant  calculated  such  that  if  S=(r=  a 
constant  for  the  current  zone  then  the 
transport  calculation  will  be  exact 

Sa  and  SB  are  obtained  from  a  bilinear  interpolation  of  the  zone- 
centered  •ources  of  the  current  zone  and  its  neighboring  zones.  If  these 
inter polateo  values  SA  and  Sg  and  the  zone -centered  source  Sp  of  the 
current  zone  differ  by  an  amount  FAC,  the  SA  and  SB  are  set  equal  to 
Sp.  The  source  is  assumed  to  vary  linearly  along  the  path  from  A  to 
B  for  the  transport  calculation. 


transport  along  d. 

ti(L,LP) 

S'-*S 


'P',LP 


SM,P  S'-*S 
S'*»S 


n(L,LP)  E 


S' ,  LP 


Glossary  of  Variables  Used  in  FUNCTION  TRANS  (SIGMA.  D.  XA. 
XB,  YA,  YB,  C.  jUM.  IACT.  SPl  - 


FORTRAN 

Label 

Repo  t 
Label 

A1 

None 

Temporary  storage 

A2 

None 

Temporary  storage 

A3 

None 

Temporary  storage 

Description 
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Ai 

A5 

C 


D 


FAC 


HELP 

SA 

SB 

SP 


SIGMA 

SUM 


None 

None 

k 

q 


t 

q 


f 


None 

4*S}) 

4nS°f 


4ttSC 


None 


Temporary  storage 
Temporary  storage 

Constant  calculated  such  that  the  transport 
equation  will  yield  an  exact  solution  in  the  case 
of  isotropic,  homogeneous  radiation  with  s=<r= 
constant  and  IQ,  the  intensity  of  the  radiation 
field, 

8 

4ir<r 

(in  cm^  ste  radian) 

The  length  of  the  characteristic  ray  of  the  cur¬ 
rent  fan  in  the  current  zone  of  SUBROUTINE 
TRAN2 

(in  cm) 

Magnitude  criterion  for  source  term  interpolation: 

if  max(SA, SB , SP)  -  min(SA,SB,SP) 

min(SA,  SB,  SP)  <*AC, 

normal  source  interpolation  occurs;  otherwise, 
the  source  is  considered  constant  over  the 
current  zone 

Temporary  storage 

The  source  is  considered  to  vary  linearly  from 
SA  at  point  (XA,  YA)  to  SB  at  point  (XB.YB) 

\  cm  Jsec / 

The  source  assigned  to  the  midpoint  of  the  current 
zone  which  has  absorption  coefficient  SIGMA 

/in  — C{gS  ) 

V  cm  sec  / 

The  Rosseland  mean  absorption  coefficient  for  the 
current  zone. 


In  the  radiation  transport  calculation  across  the 
current  zone: 

*  /  j  (appropriate  r\ )  .  (appropriate  EV) 

lp=i7lmax 

m 


- 

. 
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XA,XB,  None 
YA,  YB 


+  2j  (appropriate  r\)>  (appropriate  EB) 

lp=t7lmax 

(in  ergs/sec 

(see  TRAN2  glossary) 

The  radiation  transport  calculation  is  performed 
along  the  characteristic  ray  path  from  point 
(XA,  YA)  to  point  (XB,  YB) 

Note:  (XB.YB)-(XA.YA)  =  D 

(in  cm) 


FLOW  OF  CONTROL  IN  FUNCTION  S(XX,  YY) 

Given  coordinates  (XX,  YY),  FUNCTION  S  calculates  the  source  at  this 
point  with  a  bilinear  interpolation  on  the  zone -centered  sources  of  the 
neighboring  zones. 


UL 

T - 

I 
I 


* - 


LL 


I 
I 


UL+1 


(frX.Yfr) 


s  4 


LL+1 


Y(J) 


-Y(J-l) 


■Y(J-2) 


X(I-l)  X(I) 

If  point  (XX,  YY)  is  such  that 


X(I+1) 


X(l)  -  <  xx  i  X(IMAX)  -  gX.(I^tAX) 


and 


Y(l)  -  <  YY  <  Y(JMAX)  -  £.XHMAX) 

*  2 

an  imaginary  "source  zone"  is  created  that  contains  the  point  (XX,  YY) 

and  has  associated  with  its  vertices  the  zone -centered  sources  (S  , 
c  UL 

uL+i ’  SLL’  SLL+1)  0f  the  nei8hborin8  zones  which  are  obtained  from 
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FUNCTION  SRC.  A  bilinear  interpolation  is  performed  on  the  vertices 
of  the  "source  zone"  to  obtain  the  source  at  point  (XX,  YY). 

If  point  (XX,  YY)  lies  outside  the  above  limits,  interpolation  for  the 
source  at  this  point  is  performed  according  to  the  following  algorithm: 

a.  If  XX  >  X(IMAX)  -  DX(1^tAX)  and  [  YY  <  Y( JMAX)  -  DY(J^1AX) 

DY(1) 

or  YY'>  Y(l)  - - - — ]  ,  a  linear  interpolation  is  performed 


between  S  and  S  on  YY. 

U  Xj  XjXj 

b.  If  XX  <  X(l)  -  and  [YY  <  Y(  JMAX)  - 


or  YY  >  Y(l)  - 
between  S. 


2 

DY(1) 

2 

and  S 


UL+1 
IfYY>  Y(JMAX)  - 


],  a  linear  interpolation  is  performed 
on  YY. 

DX(IMAX) 


LL+1 
DY(JMAX) 


and  [XX  <  X(IMAX)  - 


or 


XX  >  X(l)  -  ■~X^- “]  »  a  linear  interpolation  is  performed 


between  ST  _  and  ST  T  .on  XX. 
LL  LL+1 


d.  If  YY  <  Y(l)  -  £311  and  [XX  <  X(IMAX)  - 


or 


XX  <X(1)  -  ,  a  linear  interpolation  is  performed 


between  STTT  and  STTT  ,  .  on  XX. 

U  Li  U  Lit  1 

e.  Otherwise,  the  source  at  (XX,  YY)  is  set  equal  to  the  nearest 
zone -centered  source. 


Glossary  of  Variables  Used  in  FUNCTION  S  (XX,  YY) 
FORTRAN  Report 

Label _ Label _ Description 

ALL  None  Temporary  storag  j 

ALR  None  Temporary  storage 
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AUL 

None 

Temporary  storage 

AUR 

None 

Temporary  storage 

DELT 

None 

DXP  *  DYP 

(in  cm^) 

DX(I) 

None 

Radial  zone  length  of  hydro  zones  (I,  J),  J=l,  JMAX 
(in  cm) 

DXP 

None 

Radial  "source  zone"  length 

(in  cm) 

DY(J) 

h 

Vertical  length  of  hydro  zones  (I,  J),  J=l,  JMAX 
(in  cm) 

DYP 

None 

Vertical  "source  zone"  length 

(in  cm) 

I 

i 

Index  of  current  radial  hydro  zone  with  outer 
radius  X(I) 

ILFT 

The  inner  face  of  the  "source  zone"  is  contained 
within  the  vertical  layer  of  zones  (ILFT,  J), 

J=l,  JMAX 

IMAX 

i 

max 

The  number  of  radial  hydro  :  ones 

J 

j 

Index  of  the  current  axial  hydro  zone  wifr  jpper 
boundary  Y(J) 

JLOW 

None 

The  lower  face  of  the  "source  zone"  is  contained 
within  the  horizontal  layer  of  zones  (I, JLOW), 

1=1,  IMAX 

JMAX 

Jmax 

The  number  of  axial  hydro  zones 

KLL 

None 

Index  of  the  hydro  zone  containing  the  lower  left 
corner  of  the  "source  zone" 

KUL 

None 

Index  of  the  hydro  zone  containing  the  upper  left 
corner  of  the  "source  zone" 

X(I) 

ri 

Outer  radius  of  radial  hydro  zone  I 

(in  cm) 

XLFT 

None 

Inner  radius  of  the  "source  zone" 

(in  cm) 
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XRGT 


None 


Outer  radius  of  the  "source  zone" 
(in  cm) 


None 


The  radius  at  which  the 
calculated 


source  term  is  to  be 


(in  cm) 


The  vertical  coordinate  of  the  upper  boundary 
of  hydro  zones  (I,J),  I=1,IMAX 


(in  cm) 


YDN 


None 


Axial  coordinate  of  lower  face  of  the  " 
zone" 


source 


(in  cm) 


YUP 


None 


Axial  coordinate  of  the  upper  face  of  the 
zone" 


source 


(in  cm) 


None 


The  axial  coordinate  at  which  the  source  term 
is  to  be  calculated 


(in  cm) 


--LOW  9F  CONTROL  IN  FUNCTION  SR C 

Given  hydro  rone  KKK,  the  FUNCTION  SRC  calculates  the  source 
associated  noth  the  midpoint  of  the  zone.  If  the  zone  is  considered 
"inactive"  by  HECTIC,  then  the  source  is  zero,  otherwise. 


SKKK  =  °KKK  ac  Vkk 


KKK 


SKKK  =  ^KKK  ac  0KKK 


/xvi\rv 

A1  u  du 

4  u  , 
...  tt  e  -1 


0KKK 


if  the  problem  is  monofrequency  or  multifrequency, 


respectively,  where 
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ac 

T 


Stefan' 3  constant 
the  frequency  limits 


h 

°KKK 

tiKKK 

SKKK 


Planck's  constant 

Rosseland  mean  absorption  coefficient  of  zone  (KKK) 

Temperature  of  zone  (KKK) 

zone -centered  source  for  zone  (KKK) 


Glossary  of  Variables  Used  in  FUNCTION  SRC  (KKK) 
FORTRAN  Report 

Label  Label  Description 


DFB 


HNU 

HNUP 

KFIT 

KKK 

MFTAG 


None 


None 

None 


None 


In  the  multifrequency  calculation, 


i*/3 

*4-4 


du 


In  the  multifrequency  calculation,  the  lower 
frequency  of  the  current  frequency  band 

(in  eV) 

In  the  multifrequency  calculation,  the  upper 
frequency  of  the  current  frequency  band 

(in  eV) 


See  SUBROUTINE  TRAN2 


Index  of  the  zone  in  which  tne  source  term  is  to 
be  calculated 


Multifrequency  flag: 

=  0  means  monofrequency  frequency  problem 
^  0  means  multifrequency  problem 


ROSS(KKK)  o 


The  Rosseland  mean  absorption  coefficient  for 
zone  KKK 


AFWL-TR -67-131,  Vol  II 


,* 


STEF 


ac 

T 


THETA(KKK)  6 


Stefan's  constant  =  1.0283  x  10 


12 


/•  ergs 

<m— 2 - Ti* 

cm  sec  ev 

Temperature  of  zone  KKK 
(in  eV) 


FLOW  OF  CONTROL  IN  SUBROUTINE  BOTBND 

For  a  given  polar  angle  0m(arccos  MU(M))  and  a  system  bottom 
boundary  temperature  array  Bg  (BTHETA(I),  I=1,IMAX),  SUBROUTINE 
BOTBND  calculates  the  rate  at  which  energy  is  entering  each  zone  of  the 
layer  of  zones  (1,1),  I=1,IMAX,  in  each  fan  L,L=1,LMAX,  for  a  mono  - 
frequency  HECTIC  problem. 

The  system  bottom  boundary  is  considered  to  be  a  black-body  sur- 
face  divided  into  IMAX  annuli,  each  annulus  I  having  area  ir  (X(Ir  -X(I-lr) 
and  an  associated  black-body  temperature  BTHETA(I),  The  intensity  of 
radiatio'n,  BINT,  emitted  into  the  system  through  each  annulus  I  of  this 
black-body  surface  integrated  over  all  frequencies  is  given  by 

BINT  =  —  B  4 
4ir  0 

cLC 

where-,-  =  Stefan's  constant 
4 

The  rate  at  which  energy  is  entering  zone  (1,1)  which  borders 
annulus  I  in  fan  L  is  given  by 

EB(I,L)  =  (BINT)  *  (the  rate  at  which  energy  is  entering 

zone  (1,1)  through  its  bottom  face  in 
fan  L  in  the  case  of  isotropic,  homo¬ 
geneous  radiation  <r  =S=0  with  the 
intensity  of  the  radiation  field  =  1) 
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Glossary  of  Variables  Used  in  SUBROUTINE  BOTBND 


FORTRAN  Report 
Label  Label 


Description 


BINT  None 

BTHETA(I)  9 

out 

EB(I,L)  J 

q 


I  i 

IMAX  i 

max 

JB(1,I,L,M)  k 

q 


L  l 

LMAX  i 

max 

M  m 

PI  TT 


Temporary  storage 

The  temperature  of  the  black-body  system 
boundary  adjacent  to  zone  (1,1) 

(in  eV) 

Given  zone  (I,  J)  and  directions  specified  by 
M  and  L: 

The  rate  at  which  radiant  energy  is  entering 
zone  (I,  J)  through  it3  bottom  face  in  fan  L  and 
direction  MU(M) 

(in  ergs/ sec) 

A  running  index  referring  to  the  radial  hydro 
zones  with  outer  radius  X(I) 

The  number  of  radial  hydro  zones 

The  FUNCTION  JB  returns  a  value  which  is 
the  rate  at  which  energy  is  entering  zone  (I,  1) 
through  the  face  Y(0)  in  fan  L  in  direction 
MU(M)  in  the  case  of  isotropic,  homogeneous 
radiation  (<r=S=0)  with  IQ,  the  intensity  of  the 
radiation  field,  =1. 

(in  ergs /  sec) 

A  running  index  referring  to  the  fan  L 
The  total  number  of  fans  to  be  considered 

Index  of  the  current  polar  angle  0m(arccos 
MU(M))  being  considered 

TT 


Stefan's  constant  =  1.0283  x  lO1^ 

'  cm  sec  eV  / 


STEF 


ac 

4 
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FLOW  OF  CONTROL  IN  SUBROUTINE  OUTBND 

For  a  given  polar  angle  6m  (arccos  MU(M))  and  a  particular  section 
DY(J)  of  the  system  outside  boundary  with  boundary  temperature  array 
Rq  (RTHETA(J),  J=1 ,  JMAX) ,  SUBROUTINE  OUTBND  calculates  the  rate 
at  which  energy  is  entering  zone  (IMAX,  J)  in  each  fan  L,  L=1,L2,  for  a 
monofrequency  HECTIC  problem. 

The  system  outside  boundary  is  considered  to  be  a  black-body 
surface  divided  into  JMAX  surfaces,  each  surface  DY(J)  having  area 
2*tt*X(IMAX)*DY(J)  and  an  associated  black-body  temperature  RTHETA(J). 
The  intensity  of  radiation,  BINT,  emitted  into  the  system  through  surface 
DY(J)  of  this  black-body  surface  integrated  over  all  frequencies  is  given  by 

BINT  =  if.  R  4 
4tt  e 

where 

cLC 

—  =  Stefan's  constant 
4 

The  rate  at  which  energy  is  entering  in  fan  L  of  zone  (IMAX,  J)  with 
outside  face  DY(J)  is  given  by 

EV(I,  L)  =  (BINT)*  (the  rate  at  which  energy  is  entering 

zone  (JMAX,  J)  through  its  outside 
face  in  fan  L  in  the  case  of  isotropic, 

,  homogeneous  radiation  <r=S=0  with  the 

intensity  of  the  radiation  field  =  1). 

Glossary  of  Variables  Used  in  SUBROUTINE  OUTBND 


FORTRAN  Report 

Label  Label  Description 

BINT  None  Temporary  storage 

EV(IMAX,  L)  J  Given  zone  layer  DY(J),  surface  X(IMAX), 

and  directions  specified  by  M  and  L: 

The  rate  at  which  radiant  energy  is  entering 
surface  DY(J)  in  fan  L  in  direction  MU(M) 

(in  ergs/  sec) 


185 


AFWL-TR-67  -131,  Vol  II 


IMAX 


i  The  number  of  radial  hydro  zones 

max 


J 

JO(J,  IMAX, 
L.M) 


L 

L2 

M 


j 

k 

q 


i 

None 

m 


Index  of  the  current  layer  of  hydro  zones 
DY(  J) 

The  FUNCTION  JO  returns  a  value  which  is 
the  rate  at  which  energy  is  entering  zone 
(IMAX,  J)  through  faceX(IMAX)  in  fan  L  in 
direction  MU(M)  in  the  case  of  isotropic, 
homogeneous  radiation  <r=S~0  with  I0,  the 
intensity  of  the  radiation  field,  =  1 

(in  ergs/  sec) 

A  running  index  referring  to  the  fan  L 
LMAX/2 

Index  of  the  current  polar  angle  6m  (arccos 
MU(M))  being  considered 


PI 

RTHETA(J) 


STEF 


tr 


out 


ac 

T 


TT 

The  temperature  of  the  black-body  system 
boundary  adjacent  to  zone  (IMAX.J) 

(in  eV) 

Stefan's  constant  =  1.0283  x  1012 

ergs 

2  v 

cm  sec  ev 


FLOW  OF  CONTROL  IN  SUBROUTINE  TQPBND 

For  a  given  polar  angle  8m  (arccos  MU(M))  and  a  top  (above)  system 
boundary  temperature  array  A  (ATHETA(I),  1=1,  IMAX),  SUBROUTINE 
TOPBND  calculates  the  rate  at  which  energy  is  entering  each  zone  of  the 
layer  of  zones  (I,JMAX),  1=1, IMAX,  in  each  fan  L,  L  =  1,LMAX  for  a 
monofrequency  HECTIC  problem. 

The  system  top  boundary  is  considered  to  be  a  black-body  surface 
divided  into  IMAX  annuli,  each  annulus  I  have  area  tt(XI)2 -X(I-l)2)  and  an 
associated  biack-body  temperature  ATHETA(I).  The  intensity  of  radiation, 
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BINT,  emitted  into  the  system  through  each  annulus  I  of  this  black-body 
surface  integrated  over  all  frequencies  is  given  by: 

BINT  =  A  4 
4t r  6 


where 


-j-  =  Stefan's  constant 

The  rate  at  which  energy  is  entering  zone  (I,  JMAX)  in  fan  l  through 
annulus  I  is  given  by 

EB(I,L)  =  (BINT)  *  (the  rate  at  which  energy  is  entering 

zone  (I,  JMAX)  through  its  top  face 
in  fan  L  in  the  case  of  isotropic, 
homogeneous  radiation  <r  =S=0  w.'th  the 
intensity  of  the  radiation  field  =  1. ) 


Glossary  of  Variables  Used  in  SUBROUTINE  TOPBND 
FORTRAN  Report 

Label _ Label _ Description 


ATHETA(I) 


BCATAG 


BINT 

EB(I,L) 


I 


IMAX 


6 

out 


None 


None 

J 

q 


i 

max 


Temperature  of  the  black-body  system 
boundary  adjacent  to  zone  (I,  JMAX) 

(in  eV) 

Boundary  flag  referring  to  the  above  (top) 
system  boundary 

<  0  means  boundary  is  a  perfect  reflector 
>^0  means  boundary  is  transmittive  to 
radiation 

Temporary  storage 

Given  zone  (I,  J)  and  directions  specified  by 
M  and  L: 

The  rate  at  which  radiant  energy  is 
entering  zone  (I,  J)  through  its  top  face  in 
fan  L  in  direction  MU(M) 

(in  ergs/ sec) 

A  running  index  referring  to  the  radial  hydro 
zones  with  outer  radius  X(I) 

The  number  of  radial  hydro  zones 
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The  FUNCTION  JB  returns  a  value  which  is 
the  rate  at  which  energy  is  entering  zone 
(I.  JMAX)  through  the  face  Y(JMAX)  in  fan  L 
in  direction  MU(M)  in  the  case  of  isotropic, 
homogeneous  radiation  cr=S-0  with  IQ,  the 
intensity  of  the  radiation  field,  =  1 


(in  ergs/  sec) 


IMAX 

i 

max 

The  number  of  axial  hydro  zones 

L 

l 

A  running  index  referring  to  fan  L 

LMAX 

£ 

The  total  number  of  fans  to  be  considero  1 

max 

given  0m 

M 

m 

The  index  of  the  current  polar  angle  0m 
(arccos  MU(M))  being  considered 

PI 

TT 

t r 

STEF 

ac 

T 

Stefan's  constant  =  1.0283  x  10*^ 
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SECTION  VIII 

NONEQUILIBRIUM  DIFFUSION  IN  HECTIC 


STATEMENT  OF  THE  PROBLEM 


The  oasis  for  the  nonequilibrium  diffusion  approximation  (see 
Section  IV  of  Ref.  4  and  Ref.  8)  is  the  assumption  that  the  second  and 
higher  directional  moments  of  the  radiant  intensity  are  negligible,  so  that 


1(0) 


c  E  +  3F  -Q 
4  IT 


(181) 


where  E  is  the  density  and  F  is  the  flux  of  radiant  energy.  When  this 
assumption  is  made,  Eq.  (102)  can  be  written  as  two  equations  (Fq.  (5Z)  of 
Ref.  4): 

V-F  +  C(tE=s 

c  -  (182) 
j  7E  +  o-  F  =  0 


where 


s 


f 


Sdfl 


(183) 


in  which  the  direction  variable  fi  no  longer  appears.  The  flux  F  may  also 
be  eliminated,  leaving  just  one  second-order  equation 


f  v2 

3ir 


E  +  c  <r  E  -  s 


(184) 


for  the  density  E. 
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The  program  TDRAD  is  a  subroutine  designed  to  be  used  in  HECTIC 
for  calculating  radiative  transfer  using  Eq.  (184).  To  obtain  numerical 
estimates  of  the  energy  density  E,  TDRAD  solves  the  following  set  of 
finite-difference-equations  (Eq.  (56)  of  Ref.  4): 


BL.  (E.  .  -  E  .)  +  BR  (E.  .  -  E.  J  .)  +  BA.  (E.  .  -  E.  .  ) 

i,J  i,J  l-l, J  i.J  i.J  i  +  l, J  i.J  LJ  -  LJ  +  1 

+  BB.  (E.  .  -  E.  .  J  +  A.  .  E.  .  =  D. 
i.J  i.J  i.J-1  i.J  i.J  ».J 


(185) 


where  E.  .  is  the  density  of  radiant  energy  in  zone  Z.  .  and 
i.j  1  i.J 

4  r. 


bl. 

».J 


br.  = 


i-1 


b: 


bb.  . 


2  2 

3<ri  - 

f  <T .  .(r.  -  r.  )  +  cr .  .(r.  -  r.  )  1 

L  i.j  i  i-i  i-i, J  i-i  i-2  J 

4  r . 

l 

3 ( r 7  -  r2  ) 
i  l-l 

r<r  (r  -  r.  )  +  cr .  .(r.  -  r.)| 

|_  i.j '  i  l-l  i+l  ,J  i+l  i  J 

2 

3(zi '  2j-)’[ 

cr.  .(z.  -  z  )  +  cr.  z 

i.j  J  J-l  i,J  +  l  J  +  l  J  J 

2 

3<zj  -  2j-i> 

~<r.  .(z.  -  z  )  +  cr.  .  .(z.  .  -  Z.  ) 
i.j  i  J-l  i.J-1  i-l  J-2_ 

(186) 


A.  .  =  tr  .  . 
i.J  ‘.J 


D.  .  =  S. 
i.J  »,J 


Let  k  be  a  single  index  that  enumerates  zones.  That  is,  let 


k  =  (j  -  l)i  +  i 
max 
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(Traditionally,  the  FORTRAN  subscript  K  fc  r  zone  Z  is  k  +  1  in  OIL 

i.j 


and  its  derivatives).  Then,  Eq.  (185)  can  be  conveniently  written 

E  B. 


nr 


"1  x  =  s, 
k.m  m  k 


(187) 


or,  in  matrix  notation, 


where 


B  x  =  s 


(188) 


x,  =  E.  . 
k  i,j 


sk  ■  \ 


B.  .  =  -BL. 

k,k-l  i,j 


Bk.k+<  ■  ‘By 


A 

D  -  -D  * 

k,k+I  ‘  i,j 


B  .  -  =  -BB 
k,k-I  i,j 


B  =  A.  .  +  BL.  +  BR.  +  BA.  +  BB 
k*k  LJ  i,J  i,J  i,j  LJ1 


B,  =0  otherwise 
k,m 


(189) 


where  T  =  i 

max 

A  method  of  successive  approximations  due  to  Oliphant  (Ref.  9)  is 
used  in  TDRAD  to  solve  Eq.  (188).  It  was  soon  discovered  that  the  rate  of 
convergence  of  Oliphant1  s  method  is  often  very  low,  especially  when  the 
zones  of  the  HECTIC  mesh  are  optically  thin.  Intensive  effort  has  been 
exerted  in  the  search  for  efficient  methods  of  solutions  of  systems  of  the 
form  of  Eq.  (185),  especially  in  the  fields  of  thermal  and  neutron  diffusion 
(Ref.  10). 
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The  mo&t  successful  procedures  have  been  successive  over¬ 
relaxation,  or  SOR,  and  alternating -direction -implicit,  or  ADI.  Accord- 
ingly,  tests  were  conducted  to  compare  the  performance  of  these  procedure 
with  Oliphant'  s  to  see  which  would  be  most  suitable  for  application  to 
problems  of  the  type  that  TDRAD  is  designed  to  treat. 

FORTRAN  expressions  for  the  above-mentioned  variables  are 
listed  below,  where 


K  =  k  +  1  =  (j  -  1) 


i  +  i  +  1 
max 


BL.  =  XA(K) 

i.J 

BR  =  XC(K) 
i.J 

B®.  =  XAJLP(K) 

B^\  =  XGAM(K) 

D.  .  =  XD(K) 
i.J 

A  =  -XA(K)-XB(K)-XC(K)-XALP(K)-XGAM(K) 

E.  =  ERAD(K) 

The  appendix  contains  listings  of  the  FORTRAN  source  statements 
for  a  version  of  TDRAD  that  uses  the  ADI  method.  The  programming  of 
Oliphant's  method  and  SOR  is  included  in  supplementary  listings. 


COMMON  FEATURES  OF  THE  METHODS 

All  three  methods  investigated  are  based  on  the  idea  of  using  an 
approximate  inverse  of  the  matrix  B  to  obtain  a  correction  to  an  estimate 
of  the  solution  of  Eq.  (188).  The  methods  differ  mainly  in  their  procedures 
for  obtaining  the  approximate  inverse. 

To  be  more  explicit,  suppose  C  is  an  approximate  inverse  of  B  in  the 
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sense  that 


CB  =  I  -  E 


where  I  is  the  identity  and  E  is  small  Suppose  further  that  x*  is  the  i 
in  a  series  of  estimates  of  the  solution  of  Bx  =  s. 

The  correction  to  x  *  is  taken  to  be  C(s  -  Bx*),  so  the  £  +  lSt 
estimate  becomes 


(190) 

th 


£  +  1  • 

:  =  x  1  + 


C(s  -  Bx*) 

Let  By  =  s  and  let  the  error  in  x*  bee*  =  y  -x*.  Then 
s  -  Bx  *  =  s  -  B(y  -  e*)  =  Be*,  so 


£+1  £+1 
e  =  y  -  x 


x£  +  C(s  -  Bxe) 


(191) 


=  y  -  (x£  +  CBe£) 


=  e*  -  CBe* 

=  (I  -  CB)  e* 

=  Ee* 

It  follows  that  e*  =  E*  e°,  where  E°  =  I  and  E*+*  =  EE*,  the  £+lSt 
power  of  E.  Therefore,  x*  -*  y  provided  that  E  is  so  small  that  the  moduli 
of  its  eigenvalue  are  all  less  than  unity. 

Another  common  feature  of  the  various  methods  is  the  use  of  con¬ 
vergence  accelerating  parameters.  What  is  done  amounts  to  setting 

xi  +  i  =  x£  +  u>  C(s  -  Bx*)  (192) 

where  w  is  an  adjustable  scalar  parameter.  It  is  often  true  that  methods 
of  successive  approximation  of  the  type  described  by  Eq.  (191)  under¬ 
estimate  the  size  of  the  correction,  and  using  Eq.  (192)  with  w  >  1,  but  not 
too  large,  will  improve  the  convergence  rate.  Actually,  Eq.  (192)  is  not 
used  exactly  as  written  in  any  of  the  three  methods  that  were  tested,  as  will 
be  seen  in  the  following  detailed  discussion  of  the  methods. 


i93 


AFWL-TR-67-131,  Vol  II 


OLIPHANT1  S  METHOD 

Oliphant'  s  method  (Ref.  9)  is,  briefly,  to  modify  the  matrix  B  in  such 
a  way  that  it  becomes  easy  to  invert  with  the  expectation  that  if  the  modifi¬ 
cation  is  not  too  great,  then  the  inverse  of  the  new  matrix  will  closely 
approximate  that  of  B. 

First,  however,  let  U  be  the  upper  part  of  B:  i.e.,  let 


B.  if  m  >  k 

k,m 


0  otherwise 


(193) 


and  set 


C  =  B  +  \  U  (194) 

The  next  step  is  to  find  a  small  matrix  H  such  that  C  +  H  may  be 
expressed  as  a  product  of  easily  determined  triangular  factors.  Thus,  let 

C  +  H  =  WV  (195) 

where 


W,  =  0  fo  r  £  >  k 

M 

V.  =0  for!>m 

l,m 

The  particular  solution  of  Eq.  (195)  that  is  used  is 


(196) 


wk,k.I  ■ 

Bk,k-I 

II 

T* 

1 

Bk,k-1 

ii 

Bk,k  "  Wk,k-I  Vk-I,k  "  \,k-l  Vk-l,k 

w, 

k,m 

0  for  m  =  k,  k-1,  or  k-I 
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Vk,k+I 

ZZ 

(\  +  1) 

Bk,k+I/ Wk,k 

V 

k,k+l 

= 

(\+  1) 

Bk,k  hi'  Wk,k 

\,k 

= 

1 

Y,m 

= 

0  for 

msck,  k+lork  +  I 

Hk,k+I-1 

= 

Wk,k-1 

V 

k-1,  k+I-1 

^.k-I+l 

r 

Wk,k-I 

Vk-I,  k-I+1 

“k.m 

= 

0  for 

m  *  k  -  1+1  or  k  +  I 

where  I  =  i 

max 

Note  that  W,  and  V,  are  expressed  in  terms  of  B  and  W 

k,m  k,m  k  ,m 

and  V,  .  for  k'  <  k  or  k'  =  k  and  m'  <  m,  so  that  there  is  no 
k'  ,m' 

problem  of  finding  a  sequence  in  which  to  carry  out  the  indicated  operations. 
The  verification  of  Eq.  (197)  is  accomplished  by  direct  substitution  in 
Eq.  (195).  Adding  (\U  +  H)  x  to  both  sides  of  Eq.  (188)  yields 

(B  +  \  U  +  H)  x  =  s  +  (\  U  +  H)x 


or 

WVx=s  +  (\  U  +  H)x  (198) 

so  that 

x  =  V^W"1  [s  +  (\U  +  H)x]  (199) 

If  x*  is  a  trial  solution,  one  revises  it  by  substituting  it  for  x  in  the  RHS 
of  Eq.  (199).  Thus, 

xC+1  =  V^W"1^  +  (  U  +  l  :*]  (200) 
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The  matrix  V  W  plays  the  role  of  approximate  inverse  of  B  To 
see  the  analogy  between  Eq.  (191)  and  Eq.  (200),  observe  that 


£+1 

x  =  x 


f  +  V^W'1  [s  +  (XU  +  K)  x£  -  W  V  xf 


=  x£  +  V'V1  (s  -  Bx£) 

The  numerical  work  is  rather  simple.  To  see  what  is  involved, 
rewrite  Eq.  (199)  in  three  parts  as  follows: 


y  =  s  +  (  X  U  +  H)  x1 
Wz  =  y 


(201) 


,,  £  +  1 

V  x  =  z 


Writing  these  equations  out  in  full  yields 


yk  =  Sk+XBk,k+l  UBk,W  *Ll 

+  ^.k+I-l  Xk+I-1  +  ^.k-I+l  Xk-I+1 


(202) 


Zk  =  (yk  '  Wk,k-1  *k-l  ’  Wk,k-I  Zk-I)/Wk,k  (203) 


£+1  _  v  £+1  £+1 
Xk  Zk  Vk,k+1  Xk+1  "  Vk,k+I  Xk+I 


(204) 


Equations  (202)  and  (203)  are  evaluated  simultaneously  in  order  of  increas¬ 
ing  k,  so  the  y'  s  need  not  actually  be  stored.  Equation  (205)  is  then  evalu¬ 
ated  in  reverse  order  so  that  x£*j  and  x**1  will  be  available  for  calculating 
1+1  *  +  * 

.  Oliphant' s  acceleration  procedure  amounts  to  replacing  Eq.  (204)  by 

xk+1  =  “<xk  -  vk,k+i  v!  -  vk,k+)  +  <*  -  - » xk  (205> 

Usually,  -1  s  X  1  and  0.5  £  w  s  1.5. 
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FORTRAN  expressions  for  the  above-mentioned  variables  are  supplied 
in  the  following  list  (because  of  the  transience  of  FORTRAN  assignments, 

"x  =  A  and  y  =  A"  does  not  imply  "x  =  y"): 


k  =  K-l 
I  =  IMAX 

V  *  XB(K| 

Bk,k-1  *  XA(K) 
Bk,k+1  *  XC(K) 

Dk,k-:  =  XALP<K) 

B,  ...  =  XGAM(K) 
k,k+I 


U 


k 
\ 

k,k+l 


U 


k,k+I 

wk,k 


W 


k,k-l 


W 


k,k-I 


Vk,k+I 

V 

k.k+l 


ERAD(K) 

-XD(K) 

CMXK  -  1.0 
XC(K) 

XGAM(K) 

XB(K) 

XA(K) 

XALP(K) 

XGAM(K) 

XC(K) 
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The  alternating-direction-implicit,  or  ADI,  method  for  solving 
elliptic  systems  of  difference  equations  is  usually  attributed  to  Peaceman 
and  Rachford  (Ref.  11).  Their  procedure  is,  briefly,  to  solve  Eq.  (185) 
alternately  by  rows  and  by  columns.  The  variant  that  was  chosen  for  the 
comparison  test  operates  in  the  following  way. 

Let  E?  .  be  the  I**1  estimate  of  E.  .  and  let  w  be  a  parameter.  The 
l.J  i,J 

procedure  is  first  to  solve 

BL.  (E?^-  E?^  .)  +  BR  (E.*+i-  E£  +  i.)  +  (1  +  w )  A.  .  El+} 
l.J  1,J  1-1. J  l.J  l.J  1+1,  J  l.J  l.J 


=  D.  .  +  u  E.  .  -  BA.  (E?  .  -  E.1  .  )  -  BB.  (E.f  .  -  E£.  J 

i»J  l.J  l.J  l.J  i.J+l  i.J  i.J  i.J-l 

for  E?t^and  then  to  solve 

i.j 

BA.  (E1!1-  El+i  )  +  BB.  (E1!1-  E£+1  )  +  (1  +«)  A.  .  El+i 
l.J  i.J  i.J+l  i.j  i.j  i.j- 1  i.J  i.J 


(206) 


).  .  +  uE?  +  *  -  BL.  (E£  +  ^  -  Ef+^.)  -  BR.  (E£  +  2  -  E£+^  ) 
l.J  l.J  i.J  i.J  i-l. J  i,j  i.J  i+l, J 


,  (207) 


The  parameter  u  usually  falls  in  the  range  0  <  w  <  20. 
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The  system  of  equations  represented  by  Eq.  (206)  may  be  reduced  to 

j  independent  subsystems,  one  for  each  value  of  j.  Each  of  the  sub¬ 
max 

systems  has  the  form 

a  x  +b  x.  +  c.  x  =  d.  (208) 

i  i-1  ii  i  i+l  i 


for  1  <  i  <  i  To  solve  Eq.  (210),  look  for  a  solution  of  the  form 

max 

x.  =  Y  .  x.  +  6  .  (209) 

i  i  i+l  i 


Using  Eq.  (209)  to  eliminate  x  and  x._1  from  Eq.  (208)  yields 

x.  -  6  . 

a.(Y.  ,  x.  +  6.  ,)  +  b  x  +  c  -  =  d 

1  1-1  1  1-1  11  1  1 


or 


+  b.  + 


$ 


x. 

i 


=  d.  + 


c.  6. 
i  l 

~T7“ 

1 


a. 

i 


i-1 


Setting  both  sides  of  Eq.  (210)  to  zero  gives 


Y. 

i 


-c. 

i 


a. 

i 


+  b. 

l 


(210) 


(211) 


6 

i 


a.  6.  ) 

i  i-I 


d.  a.  6 . 

l  -  l  i-I 

a.  Y  .  ,  +  b. 
li-l  i 


(212) 


Sine  a  =  0,  the  values  of  Y  and  6  are  irrelevant.  Equations 
1  o  o 

(211)  and  (212)  may  be  solved  recursively  for  Y^  and  6^,  i  -  1,  2,  .... 

I  =  i  .  Since  C  =  0,  Y_  =  0.  Hence,  Eq.  (209)  may  be  solved  for 
max  I  I 

x.  i  =  I,  I  -  1,  ....  2,  1,  starting  with  Xj  =  6j. 
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The  system  of  equations  represented  by  Eq.  (207)  is  of  the  same 
type,  and  the  same  procedure  may  be  applied  to  it. 

In  the  FORTRAN  program,  V  and  6  are  stored  in  arrays  XGI  and 
XDI,  respectively.  E*  is  in  ERAD  and  E*+2  is  in  EH. 

SUCCESSIVE  OVERRELAXATION  METHOD 

The  method  of  successive  over  relaxation  (SOR)  was  probably  known 

t.;  Gauss,  but  Southwell  (Ref.  12)  deserves  credit  for  reviving  it.  In 

its  most  primitive  form,  the  method  reduces  to  solving  Eq.  (185)  for 

E.  using  whatever  is  the  best  available  estimate  for  E  and  E 
1>3  i,j±l  i±l,j’ 

then  extrapolating  the  result  by  some  constant  amount,  and  then  proceeding 

to  some  new  (i,j).  In  the  present  context,  SOR  refers  to  the  process  of 

successively  solving  Eq.  (185)  for  various  subsets  of  the  set  of  all  the  E's, 

using  the  latest  estimates  of  the  values  of  the  remaining  ones. 

To  be  more  specific,  let  i  and  i,  be  given  for  1  <  n  <  N,  where 

l,n  2,n 

1  s  ^  n  -  i2  n  -  imax-  One  iteration  of  the  procedure  consists  of  solving 

N  sets  of  equations,  where  set  n  consists  of  Eq.  (185)  for  i  <  i  s  i 

l,n  2,n 

and  1  s  J  £  J'  >  °f  course,  if  i  =  1  and  i,  =  i  ,  then  the  first 
max  1,1  2,1  max 

step  of  the  first  iteration  would  produce  the  exact  solution.  Usually,  the 
number  of  columns 


Ai  = 
n 


-  i.  +1 

l,n 


(213) 


lies  between  1  and  5. 

The  procedure  for  carrying  out  step  n  of  an  iteration  is  as  follows. 

First,  the  residuals  r.  .  of  Eq.  (185)  are  calculated, 

i.J 


r.  .  =  D.  .  -  A.  .  F.  .  -  B^.  (E.  .  -  E  )  -  .... 
1>3  i.J  i.J  i,J  i,J  i.J  i-l, J 


(214) 


for  1  <  j  £  j  and  i  l  i  <  i  ,  using  the  latest  values  for  the  E1  s. 
max  l,n  2,n 

Then  corrections  €  .  .  are  calculated  using  Eq.  (185)  with  t  .  .  in  place  of 

1>J  i,J 

E.  and  r.  .  in  place  of  D.  ..  Equation  (185)  then  reads 

i> J  i,j 
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BL.  (t.  .  -  t  .  .  .)  +  BR.  (*..-€  .  .  )  +  BA.  (t.  .  -  t  J 
i.J  i,J  i-l,  J  i,J  i.J  i+l, J  i,J  i,J  i.j+1 


B 


(215) 


+  B.  A.  .  *  .  .  =  r. 

I.J  I.J  *.J-1  I.J  I.J  I.J 


where  again,  i  <  i  S  i  .  If  i  is  outside  that  range,  then  t  .  .  =  0,  so 
l>n  2 1  n  i ,  j 


there  are  not  an  excessive  number  of  unknowns.  The  *'  s  having  been 
found,  the  E' s  are  updated  by 


_new  _old 
E.  .  =  E.  .  +  w  £  .  . 

i.J  i.J  i.J 


(216) 


where  u>  is  an  acceleration  parameter .  The  method  used  for  solving 
Eq.  (215)  is  Gaussian  elimination.  Rewrite  Eq.  (215)  in  the  form 


Eb,  e  =  d, 
k,m  m  k 


(217) 


where 


e.  =  c 


i.J 


Ok  ■ 


=  r. 


i.J 


k,k 


A.  .  +  B^.  +  B*.  +  BA.  +  B?. 
i.J  i.J  i.J  i.J  i.J 


k,k-l 


-BL.  (i  *  i  ) 
i.J  l.n 


(218) 


k,k+l 


-Bt  .  (i  -  i  ) 
i.J  2,n 


k,k-l 


k,k+l 


M..,- 
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and 


k  =  (j  -  1)  t  +  i  +  1  -  i 


l,n 


(219) 


t  =  Ai 


n 


As  in  Oliphant' s  method,  (b  )  is  expressed  as  a  product  of  two  triangular 

k,m 

factors  (w,  )  and  (v,  ).  Here,  the  factors  are  to  have  the  properties 

k,m  k,m 


w,  =0  unless  k  -  t  <  m  <  k 
k,m 


w  =1 
k,k 


(220) 


so  that 


v,  =0  unless  k  <  m  <  k  +  t 
k,m 


m 


bk,m  =  E  "■  •  V 


k,£  l,m 


for  m  <  k 


!=k-t 


k,m 


I  =m-t 


(221) 


Ew  .  v  +  V  for  k  <  m  (222) 

k,l  £,m  k,m 


The  solution  of  Eq.  (222)  is  straightforward.  Suppose  that  w  and  v4 

£ ,  m  £ ,  m 

are  known  for  all  m  when  1  <  k.  Then  Eq.  (221)  can  be  used  to  find  w.  , 

k,m 


m-1 


E  wk  ,  V, 

ZZ.  k>* 


w 


k,m 


k,m  — t  K,£  £,m 


(223) 


for  m  running  from  k  -  t  up  to  k  -  1 ;  and  then  can  be  found  from 

Eq.  (223): 


k-1 


v,  =  b, 
k,m  k,m 


-?t  WM 

■  =m-t 


m 


(224) 
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The  w' s  and  v' s  are  found  once  for  all  iterations.  There  are 


N 


n=l 


(2t  +1)  t  j 
n  n,  max 


of  them  --  too  many  to  hold  internally  for  interesting  sizes  of  t  .  With 

n 

the  w' s  and  v'  t  Known,  the  unknown  e'  s  are  found  by  solving  w  v  e  =  b  e 
in  two  steps:  w  f  =  r,  then  v  e  =  f.  Thus, 


k- 1 

E  w. .  f 


‘k "  ^  i=“  -m  ■* 


which  may  be  evaluated  fo-  increasing  k,  and  then 


(225 


e 


k 


k+t 
£  =k+l 


Vk,k 


(226 


which  is  evaluated  by  starting  with  k  =  k  =  j  t  and  working  back 

max  max 

down. 

The  matrices  w  and  v  for  all  steps  are  packed  in  the  array  EF  in 
the  FORTRAN  program.  The  matrix  elements  for  step  L  are  assigned  to 
(EF(KF),KF=LB,LC),  where  LB=LBASE(L)  and  LC=LBASE(L+i)-i . 

Wk,m’  f°r  m  <  k*  vfc  for  k  <  m,  are  stored  in  EF(LB+KF),  where 

KF  =  (2  i  +  1)  (k  -  l)  +  m.  The  vectors  d,  e,  and  f  are  stored, 
respectively,  in  arrays  RES,  EP,  and  RES. 


THE  TESTING  PROCEDURE 

The  three  methods  described  above  were  exercised  on  a  number  of 

problems.  Three  of  the  problem^  were  used  for  detailed  tests  reported  in 
the  next  section. 
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To  describe  the  tests  themselves,  it  is  convenient  to  use  the  matrix 
notation  B  x  =  s  of  Eq.  (188)  to  designate  the  system  of  equations  to  be 
solved,  in  which  case  the  successive  estimates  of  the  solution  are  given  by 
Eq.  (191),  where  the  matrix  C  depends  on  one  or  two  parameters  as  well  as 
the  type  of  test.  Let 

£  £+1  i  £ 

d  =  x  1  -  x  =  C(s  -  B  x£)  (227) 

be  the  difference  of  two  successive  iterates.  Then  one  can  use 


as  a  measure  of  the  change  on  iteration 
The  ratio 


P 


£ 


V6m 


(228) 


(229) 


is  a  measure  of  the  rate  of  convergence  of  the  iteration.  But 

.  £  £+ 1  £ 

d  =  x  -  x 


1+1  ,  £v 
=  y-  e  -  (y  -  e  ) 


£-1  £ 
=  E  e  -  E  e 


=  E  d 


£-1 


=  El  d° 


in  the  notation  used  earlier.  Consequently,  the  sequence  of  difference 
vectors  d*  can  be  expected  to  converge  to  an  eigenvector  of  the  error 
matrix  E,  and  Pj  will  generally  converge  to  the  reciprocal  of  the  modulus 
of  its  largest  eigenvalue.  Asymptotically,  at  least,  1/log  p  is  the  number 
of  iterations  required  to  get  an  e-fold  reduction  of  the  error;  and  if  T  is  the 
computing  time  for  an  iteration,  then 


*See  the  section  entitled  "Common  Features  of  the  Method." 
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4> 


log  P 
T 


is  the  rate  of  convergence  in  e -folds  per  unit  of  time. 


(230) 


TEST  RESULTS 


The  various  methods  described  above  were  exercised  on  a  number 

(~10)  of  test  problems.  They  all  performed  well  on  problems  containing 

no  zones  less  than  10  mfp  in  diameter,  and  they  all  converged  slowly,  if  at 

all,  on  problems  containing  many  zones  of  diameter  ~(  1  mfp.  Three 

problems  of  the  latter  tyge  were  used  as  a  basis  for  a  detailed  comparison. 

Problem  1:  i  =  j  =20 
- -  max  max 

r  -  r  =  0.1,  for  all  i;  z.  -  z.  .  =  0.1,  for  all  j;  <r,  .  =  1, 
i  i-1  J  J-1  X»J 

for  i  and  j. 

Problem  2  is  the  same  as  Problem  1  except  that  <r.  .  =  0.1  for  all 
———————  i.J 


i  and  j. 

Problem  3:  i 


=  j  =  20. 
max  max 


1  0.01 

for  i  £  10 

i-1 

[  0.1 

for  10  <  i 

0.01 

for  j  £  10 

J-1  = 

0.1 

for  10  <  j 

= 

0.1, 

for  all  i  and  j 

i.J 


The  test  results  are  summarized  in  tables  I,  II,  and  III.  The  param¬ 
eters  that  were  varied  are  those  described  earlier  in  the  sections  entitled 
"Oliphant1  s  Method,"  "Alternating-Direction-Implicit  Method,"  and 
"Successive  Overrelaxation  Method."  ADI  appears  not  to  perform  as  well 
as  the  other  two  on  easy  problems  but  did  quite  well  on  the  hardest  problem 
(3).  It  also  seemed  to  be  fairly  insensitive  to  the  parameter  u>  so  long  as 


AFWL-TR-67  -131,  Vol  II 


it  fell  in  the  range  5  S  w  £  10.  Oliphant' s  method  performed  very  well  on 
easy  problems  but  could  not  be  made  to  work  on  Problem  3.  (Detailed 
checking  of  intermediate  results  were  made  to  ensure  the  accuracy  of  the 
test  of  Oliphant' s  method  applied  to  Problem  3.)  The  value  of  <|>  in  ADI 
could  be  increased  by  storing  rather  than  regenerating  the  array  of  Y' s, 
which  does  not  change  after  the  first  iteration,  but  Oliphant' s  method 
would  still  converge  more  rapidly  on  problems  like  Problem  i.  SOR 
performs  best  of  all  on  all  problems  relative  to  the  criterion  of  largest  <J>. 
The  value  of  $  is  based  on  the  time  required  to  compute  an  iteration  but 
does  not  account  for  the  preliminary  time  spent  in  calculating  the  approxi¬ 
mate  inverse,  which  is  very  high  for  high  Ai.  Consequently,  SOR  would  not 
perform  well  on  practical  problems  that  converge  in  a  few  (  -  10)  iterations. 
Another  difficulty  with  SOR  is  its  large  storage  requirement,  which  would 
make  it  necessary  to  use  I/O  files  on  large  problems. 

It  is  not  entirely  clear  what  conclusions  can  be  drawn  from  the  test 
results.  It  can  be  said  that  Oliphant1  s  method  is  about  as  good  as  any  on 
problems  to  which  TDRAD  can  practically  be  applied.  ADI  is  perhaps  a 
better  choice  because  of  its  greater  reliability  and  insensitivity  to  the 
value  of  u>.  SOR,  while  it  works  well  on  hard  problems,  requires  the  choice 
of  the  sequences  i^  ^  and  i^  n  and  is  slow  on  easy  problems  because  of  the 
.etup  time  it  requires. 

One  fact  stands  out:  none  of  the  methods  perform  well  on  problems 
that  involve  streaming  through  thin  regions.  It  may  well  be  that  in  two  or 
three  dimensions,  discrete  ordinate  methods  are  more  efficient  than 
nonequilibrium  diffusion  when  streaming  is  important. 
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TABLE  I 
TEST  OF  ADI 


Problem 

"  1 

P 

1 

0 

1 .026 

1 

1.057 

3 

1.122 

5 

1.191 

7.5 

1.28 

10 

1.21 

2 

1 

1.019 

3 

1.022 

5 

1.021 

7.5 

1.022 

10 

1.019 

12 

3 

1 

0.962 

3 

1.026 

5 

1.043 

7.5 

1.072 

10 

1.138 

12 

1.119 
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TABLE  in 
TEST  OF  SOR 
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APPENDIX 

LONGZ,  SHORT2,  AND  NONEQUILIBRIUM 
DIFFUSION  ROUTINES 
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LONG2  ROUTINES 

Subroutine  DRAW 
Subroutine  TRAN2 


213 
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Subroutine  DRAW 


c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


OMAN 

subroutine  uram 

COMPILED  I6NOVb6>«oL  29SEPTb7>PRW 


HECTIC  COMMON 


COMMON 

AHN* 

amhiln* 

ANN* 

ATOM* 

bcatag* 

BCBlAG* 

13CLTAG* 

1UCHTAG* 

CAP1N* 

CAMS* 

cuur* 

CMXK* 

CmXQm* 

CNDE* 

CO * 

2LuE* 

CSTOP* 

CV* 

CTCLE* 

OOOPRT. 

UGHET* 

DHNU* 

UfANTP* 

3UMIN* 

UNN* 

UT* 

UTBUGR* 

DTC* 

DTH* 

DTNA* 

DTO» 

4UTR* 

DTR1* 

0TR2* 

UTUF* 

DTVF* 

DUMPT7. 

ECK* 

EFRAC* 

SEII  • 

LRRCHT • 

E1H* 

EZEHO* 

FDTC. 

FFA* 

FFB. 

F  IFT* 

bFUDGt* 

GV* 

HCB* 

HCP* 

HH* 

hnu* 

MNUP* 

HNUS  9 

7MVU* 

I* 

IC* 

TO. 

IH* 

IHNU* 

IMAX* 

ImPTAO# 

6 I SEND* 

ISR* 

I  TAG* 

ITRMAX* 

IU* 

IV* 

11* 

12* 

9J* 

JC. 

JH* 

JMAX* 

jmaxa* 

JU* 

JV* 

J5 

COMMON 

K* 

KMAXA* 

KMN1* 

KMN2. 

KP. 

L* 

Mo 

lHtHGt* 

mftag* 

MZ* 

N* 

NC* 

NHNU* 

NK* 

NPC * 

2NR* 

NRM* 

NT* 

NT APE* 

NT* 

Nl* 

N2* 

N3* 

Amt 

ODUC* 

PABOVE* 

POLO. 

PI. 

PIDTS* 

PRINTL* 

PRINTS* 

4PHOB* 

PRR* 

P»* 

HADE* 

HC* 

rft* 

RPTAG* 

RRo 

SSCUR  * 

SCR* 

SCRE* 

SCTCLE* 

SGML. 

SIG* 

SIGH* 

SLU6* 

6SN* 

SPROB* 

SVMAX* 

SVS* 

SI* 

S2* 

S3* 

S4 * 

7SS* 

T* 

TAUDTS* 

THICK. 

tmax* 

TRAO* 

URR* 

UT* 

ttUU* 

9XMAX* 

UVMAX* 

VABOVE*  VAPE* 
BLANK (49) 

VULO* 

VEL. 

MS* 

MSA* 

COMMON 

AIX(1200K 

♦MX (1200). 

ALAMH( 1200) • 

1ALAMV(  1201)1* 

U(I2l)0>* 

(1200). 

ER(1200) 

• 

2F10U1 (I2U0) ' 

3THETA( 1200) • 
9X0(1200)* 
SUT(IOO)* 
bb2 (100) * 
7BETAU(bU) • 

KFH  ( 1200) * 

U( 1200) • 

SOLIUUVO)* 

SAMC(IUO)* 

X(b3>* 

temp ( i2) * 

P( 1200) * 

V (1200) * 

PL (200) • 
TAMC(IOO). 

OX ( S2 ) • 

*£*0(12) 

SMLQI 1200) * 

XALPI 1200) . 
moi). 

UL(lOO)* 

TAU(52) • 

OHABOOO 

0HA000I 

ORAM  60 
'•DRAM  70 
DRAM  SO 
'•DRAM  90 
OMAN  100 
HtCCOMUI 
HLCCOM02 
HLCCOMOS 
HECCOM04 
HbCCOMUS 
HECCOM06 
HECCOM07 
HtCCOMOS 
HECC0M09 
HbCCOMIo 
HbCCOMII 
HECCOMI2 
HECCOMlJ 
HECCOMI* 
HECCOMls 
HbCCOMlb 
HECC0MI7 
HtCCOMls 
HECC0MI9 
HECCOM20 
HLCCOM21 
HE C COM2 2 
HtCCOMij 
HLCCOM24 
HECCOM2S 
HECC0M26 
HECC0M27 
HLCC0M28 
DRAM  310 
DRAM  320 


DIMENSION  FLEFT1I00).  PH  11001.  SI6CI100)  ORAM  34n 
EQUIVALENCE  (FLEFT.  UL).  (PL.  PRI  0 
EQUIVALENCE  IPLI10I ) *  SIGC)  .  nu..  ,7n 
EQUIVALENCE  (S20.  BLANKU2)),  (ZP126*  BLANK (13))*  (2PI36*  BLANK (190R AW  360 
.  *  * '  ‘,,T,  W-AN*116***  IANUMBR*  BLANK! If ) ) *  ILOCZORAM  390 
•  *  BLANK  (22) )*  (H»  bLANK(2S)>*  (NA*  BLANK (26 I )  ORAM  900 
EQUIVALENCE  ( 0 ACC » BLANK 1 47) ) * (SACC* BLANK (46) ) * (TACC»BLANK(49) ) 


REAL  MERLE 


DIMENSION  OLOTHIl) •  PLANCK ( 1 )  *  ROSS(l).  XAIl) 

DIMENSION  RXI50).  RPT(IOO).  KXA(l).  NERI1) 

EQUIVALENCE  (OLUTH*  FIOUTI.  (PLANCK*  p).  (ROSS*  U)»  (ER*  NCR) 
EQUIVALENCE  (KXA*  XA»  V) 

COMMON  /BLACK/BETaK(30) •  BETAA(SO) 

COMMON  ARAOUAT/CLAMOA.  ATHETA(SO) »  RTHETA(50) *  BTHCTA(SQ) 


DRAM  910 
DRAM  920 
DRAM  93o 
DRAM  990 
ORAM  930 
ORAM  960 
ORAM  970 
ORAM  960 
ORAM  990 
ORAM  BOQ 
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il!£J*',‘!?t!A'BTHeTA.C0NTA1N  bounoary  temperatures  iin  ev>  for  the 

ABOVE  .K16HT.AN0  BOTTOM  BOUNDARIES  RESPECTIVELY 


1 1  TOT  s  0 
KESlNU  A 

SRITE(O)  F IOUT »P»U» V 
HLH1NU  0 
KMAXSKMAXA-I 
HEN1NU  3 
UO  10  K-2tKMAX 
10  XALP(K>=0. 

DO  20  l:i>lMAX 
BETAA(l)  s  0. 

20  BETABIDSO. 

UO  20  JS1.JMAX 
25  BETAH(d)  =  0. 

SHU-1 . 0 

HEAD  (5.960)  CLAMUA 

HEAD  (5*960)  < ATMeUI  1 1 . 1=1. 1MAX) 

HEAD  (5.9601  (HTHt TA( dl .dal. JMAX) 

HEAD  (5.960)  (BTHETAdl.lSl.lMAX) 

SHITE  (6.9003)  CLAMUA 

SHITE  (6. 9004)  ( ATHETAI 1 ) . 1=1. 1MAX) 

SHITE  (6.9005)  (HTHtTA(J).d=l.JMAX) 

SHITE  (6.9006)  (BTHETA(1).1=1.1MAX) 

HEAD  960.  ANON 

NANOSANGN 

SHITE  (6.1003)  NANO 
30  IF  (X(O).LT.l.E-lO)  00  TO  «0 
S1S5.002S 
00  TO  955 
*0  NHOPSO 
1 OSD-2 


DHAS  510 
DHAS  520 
UHAS  530 
DHAS  570 
DKAS054 


0HA8056 

DRA8057 

DHA80S8 

DHA80O1 

DRA8062 

DRA8063 


DHA8073 

DHA8070 

DHA8076 

0HA80/7 


8  R  1  U  LOOP 


DO  910  1AN0S1.NAN0 
HEAD  960.  EMU.DMU.U21.DR1 
SHITE  (6.1060)  EMU.DMU.D21.0R1 
IF  (EMU  .LT.  .99995)  60  TO  05 
SI  s  5.0021 
00  TO  955 

THETASO  PROHIBITED  AS  AN  INPUT  CASE 
IS  ETA  s  SORT ( 1.0-£MU*EMU) 

SMUSSMU— UMU 

IF  (SMU  .OE.  0.)  00  TO  07 
SI  s  5.0022 
60  TO  955 

17  COTAN  s  EMU/ETA 
D«F  S  1.0/ETA 
D2F  S  1.0/EMU 
IRX3X ( IMAX) /UR1+0.8 
0.0  IS  AN  ALEXANDER 1 SM 

IF  ( 1RX  .LE.  100)  00  TO  08 


non  oon 
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60  TO  9bb 
*8  HPTUI  =  0.0 

00  bO  11H=2’ IRX 
50  HPmiH)=RPT(liH-l>*URl 
2XTHA*X(IMAX)»C0TAN 

C  FIRST. bcT  UP  LIKE  NEITHER  TOP  N0«  BOTTOM  IS  REFLECT IN6 

JZX*  <  Y  UMAX  >  -Y 1 0 )  *2  XTR  A )  /02 1  *0 . 5 
ZSTRT  =  YUMAX)*(U.b-f-LOATUZX))*DZl 
ZENO*Y ( UMAX I .EXTRA 

IF IBCUTAG  .LT.  0.0)  ZSTRTrY < 0) *0.5*021 
IF (BCATA6  .LT.  0.0)  ZENO*Y<JMAX) 

IF  (UCBTAG  .6T.  -l.E-20  .OR.  BCATA8  «8T.  -l.E-20)  50  TO  *5 
SI  =  5.002* 

60  TO  9bb 

95  MT  =  uMU  «  U21  •  OKI  •  ETA 


COMb  LOOP 


UO  900  1HD=I.IHX 
IF ( 1110  .6T.  2)  60  TO  100 

IF  <1H0  «E0.  1)  XT  =  0.5*XT 
IF  (IHU  .EQ.  2)  XT  =  2.0*«T 
100  CONTINUE 

PARIM=HPT»1RD> 

16*0 

UO  290  1=1>1MAX 
6«=XCI)*«2-PAR1M**2 
IF  (bx.LT.l.E-IO)  60  TO  290 
10*16*1 

RXI16)*S6RT<QH> 

290  CONTINUE 

IF  (16.EU.0)  60  TO  900 
1HSTRT*1MAX-1Q*I 


DNA6159 

OHA8160 

DRAS161 

DRA8162 

DRAS163 

DNA816* 

DNA5165 

0RA8166 

DRA0167 

0RA8168 


RAY  LOOP 


2CNTR=2STRT-U21 
UU  890  IZRAYsl i 1000 
2CNTH=ZCNTR*DZ1 
IHZCnTK  «6T.  2END)  60  TO  900 
1T0PS0 
KXAI1ISU 
KXAI20IIS0 
C  BEGIN  UPIARD  TRACE 
1UP=1 
IUf>UP=l 

IF  «2CNTR.LT.YC0)+1. E-5.XN0.BC8TA8.lt. 0.1  90  TO  890 
IF  I2CNTR.lt. Y(0))  60  TO  300 
60  TO  3*0 

C  CENTER  OF  HAY  IS  BELOX  THE  SYSTEM  -  -  INITIALIZE  FOR  UFXARO  TRACE 
300  SOELZxY  CU1-ZCNTR 

IF  «COTAN.LT.1.E-10)  60  TO  T30 
SOCLXsSOELZ/COTAN 
IF  (SUELX.8T.RXI1Q) 1  00  TO  730 
100*16-1 


DNASlTl 
DHABI  72 
DRA01T3 

DMA81T6 
ORAOITT 
DR Ail 78 
DMA8179 
DMA8180 

0NA8183 

0RA8189 

0RA818S 

0RA8184 

0RA0187 
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310  IF  <loG.EO.O.OH«&OCLX.GT.RXI104>>  00  TO  320 

maziui-i 

IF  (luU.GT.O)  GO  to  310 
ItRSlKSTHT 
GO  TO  330 
320  ltH=luOMHSTRT 
330  JtH=l 
Z)H*Y10) 

UETAb(lTH)  3  UCTAtil 1TH)  ♦  XT 

XfHSSOELX 

GO  TO  3S0 

300  IF  (ZCNTH.LT . Y (ORaX) )  GO  TO  3S0 
1TOPS1 
GO  TO  600 

C  CENTER  OF  HAT  IS  IN  STSTEM  -  -  INITIALIZE  FOR  UPXARO  TRACE 
330  (JO  370  JSIfJNAX 

IF  UCNTR.LT.TIJM  60  TO  360 
GO  TO  370 
360  XTRSZCNTH 
XTRSO. 

1THSIHSTHT 
JTKSJ 
GO  To  360 
370  CONT 11406. 

S13S.0073 
GO  TO  033 

C  G  E  N  t  R  /,  L  CASE  OF  INCREASING  Z 
3*0  UCLZ=YIJIrWTH 
ICON  S  0 

KIH3ITH«1«1MAX*(JTH~1I 
1XXS1TH'  1hST«T«I 
IF  IIXX.GT.O)  GO  TO  390 
S133.00H' 

GO  TO  933 

3*0  OtLXsHXaXXI-XTR 
600  IF  (ULLZ-OELX*COTAN)  610>«30>«20 
C  RAT  HITS  TOP  OF  CELL 
610  UtLS=0tL2*0ZF 
ZTRST(JTN) 

JTH3JTHM 

xth=xth*oelx/cotan 

GO  TO  640 

C  RAT  HITS  SIDE  OF  CELL 
420  OELS=ULLX«OXF 
XTR3RXI1XX) 

ZTR3ZTH«OCLX*COTAn 

ITHSlTR+1 

GO  TO  440 

C  RAT  HITS  CORNER  OF  CELL 
430  0ELS30ELX40XF 
XTRSRX(IXX) 

ZTR*T«JTK) 

JTR3JTRF1 
ITH*ITR*1 
1C0R  3  1 


DKAB1BB 
DKAB1B9 
ORAB190 
DHAB141 
DHABI 42 
DHAB143 
DKABJ94 
DKAB193 

DHAB197 

UKAB19B 

DHAB199 

DKA8200 

DHAB201 

DHAB203 

DHAB204 

DHAB2C, 

DHA82.” 

DHA8207 

DHAB20B 

DHAB209 

DHAB210 

DHAB211 

DHAB212 


DHAB215 

DHAB216 

DHAB217 

DHAB21B 

DHAB219 

0HAB221 

DHAS227 

DHAB229 

DHAB230 

DKAB232 

DHA8233 

DHAB234 

DHAB236 

DRAB237 

DHA8238 

OHAB240 

DHAB241 

0RAB243 
DHAB244 
OH A 8245 
0HAB24B 
0HA8249 
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C  STORE  THE  MATH  LENGTH  ANO  CELL  1NOEX 
AAO  KXA(lUKI=KTH 

xb(Ium>=uels 

C  CHECK  TO  StE  IF*  ANO  «H£K£*  RAT  HITS  SYSTEM  BOUNDARY 
IF  (ITK.Lt.JMAX>  GO  TO  <*60 
C  RAT  HITS  SIDE  BOUNDARY 

IF  ( I  COR  .EG.  0>  GO  TO  AA6 
BETAM l JTR-1 >  =  BtTAHlJTH-l>  ♦  XT 
GO  TO  AAV 

AA6  BlTAH  ( JTRI  =  BETAHUTK*  ♦  XT 
AAV  IF  ( 10M.LE.200T  GO  TO  ASO 
NX1T:2 
GO  To  6A0 
ASO  NTEHS2 

GO  TO  GAO 

A60  IF  (JTH.LE.JMAX*  GO  TO  300 
C  RAT  HITS  10P  BOIXMAHY 

IF  (BCATAG.LT. O.l  GO  TO  AOO 
BlTAA(ITH)  S  BETAAdTRI  ♦  XT 
IF  (lUM.Lb.2UU>  GO  TO  A70 
NXITS3 
GO  TO  GAO 
A70  NTLK=3 
GO  TO  GAO 

C  RAT  HITS  THANSMITTIVE  T0('  BOUNOART 
AOO  IF  (IUP.LE.200)  GO  TO  AVO 
$1x9. OIOS 

C  RAT°HlTSVHtFLECTlVE  TOP  BOUNOART  ~  INITIALIZE  FOR  DOXNXARO  TRACE 
C  GO  UO*N  IN  2. 

AVO  ZIH=Y(JMAX> 

C  GENERAL  CASE  OF  OECREASIN*  Z 
1C0R  =  0 

$00  IXXXITK-IKSTRTAI 
MZCK&xl 

IF  (1XX.GT.0)  GO  TO  $10 
S1=S. 0112 
GO  TO  Vbb 

SIO  OELX=HX(lXX>-XTR 
06LZsZlH-Y(JTR-l> 

KTH=ITH*1A1MAXAUTH-1) 

520  IF  (UtL/-UtLX»COTAN)  530.550*500 
c  HAT  HITS  BOTTOM  OF  CELL 
530  UELSrOtLZ»OZF 
ZTRSYUTH-1) 
s iRXJTH-1 

XTKXXT  HAOELZ/COT  AN 

MZCRS=2 

GO  TO  5G0 

C  RAT  HITS  SIOE  OF  CELL 
5A0  OELSsOCLXaOXF 
XTRSRXI IXXI 
ZTRsZTR-OCLXaCOTAN 


ORAS251 

OHA0252 

DRA0253 

0HA0255 


0HA0257 

0NAS250 

DMA0259 

DHA0260 

0HA0261 

0KAS262 

0HAS263 

DKA026A 

DKA0265 

DHA02G6 

0RAS2G7 

DRA02G0 

DRA02G9 


0HA0272 

0HAU273 

0HAS27A 


0HA0276 

0HA0277 

0HA0278 

0HA0279 

0RA02SI 
OK At 282 
0KA8283 
0HA029I 

DRAS293 

0HA829A 

0HA8295 

0KA829G 

ORA8297 

PRA8298 

ORA8380 
OR  A 8301 
0RA030Z 
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XTHElfH*! 

GO  TO  660 

C  RAT  HITS  COHNtR  OF  CtLL 
MO  UtLS=UtLX*DXF 
XTK=HX(IXX) 

ZTKST ( JTH-1) 

ALAMVIKTHt  SALARY  (kTRIU. 

JIHSJTH-1 

1TRS1IHU 


0KA8309 

DKA8305 

0KA8307 

OHA830S 

0HA8309 

OHA8310 

0HA8S11 

0HA8S12 


1COH  S  1 
M2CKS=2 

C  STOKE  TMt  PATH  LENGTH  AND  CELL  INDEX 

mo  kxauupi=kth 

Xd( lUPI FUELS 
1UP=1UP*1 

C  CHECK  TO  StE  IF*  AND  VHEHE*  RAT  HITS  SYSTEM  BOUNOARY 
IF  I11H.LE.1MAX)  GO  TO  680 

C  RAT  HI!*  SIDE  BOUNUART 

IF  ULOR  .EG.  01  GC  TO  666 
BETAMUTHUl  =  BETAHUTHUI  ♦  XT 
GO  To  669 

566  UETAH(JTK)  =  UETARI JTRI  *  XT 

569  IF  UUP  *LE.  2001  GO  TO  570 
NX1T32 
GO  TO  690 
570  <4TLR=2 
GO  TO  690 

580  IF  (JTH.LT.l)  GO  TO  600 
GO  TO  1500*6901*  MZCRS 
590  M-KTK-1MAX 
60  TO  500 

C  HAY  HITS  BOTTOM  BOUNOARY 

600  IF  (bLBTAG  *LT •  0.)  GO  TO  620 

C  HAY  HITS  THANSMITTIVE  BOTTOM  BOUNOARY 
BETABUTKI  =  BETABUTH)  ♦  XT 
IF  (IUP.LE.200t  GO  TO  610 
NXITsl 
GO  TO  690 
610  NTER=i 

60  TO  690 

620  IF  (1UP.GT.200)  GO  TO  630 
Sl=5.0135 
GO  TC  9S»5 

C  RAY  HITS  REFLECTIVE  BOTTOM  BOUNOARY  -  -  INITIALIZE  FOR  UPMARD  TRACE 
630  ZTRSY(O) 

JTR=1 
GO  TO  380 

C  BEGIN  UOXNXARO  TRACE 

1  690  IF  (1UP.6T.200I  GO  TO  730 
IUPUP=IUP-l 
XUPS^Ui 

IF  (ZCNTR.GT,Y(JMAX)-l.t-5.ANO.BCATAG.LT.O.)  GO  TO  890 
IF  UTOP.GT.O)  GO  TO  660 
GO  TO  690 

c  center  of  hay  is  at  top  on  out  of  system  ano  no  upxard  trace 


DHA8313 

DRA8315 

DHA8316 

OHAB317 

DHA8319 


DHA8321 
DHA8322 
DRAG 323 
DHA8329 
DHAB325 
DHA8326 
DHA8327 
OHA8329 


0RA8332 

DHA8333 

DHA8339 

0HAB335 

0HA8336 

DRA8337 

DHA833B 


DHA8391 

OKA8392 

DRA8393 

0RA839S 

0KA8396 

DNA8397 

UHA8398 

OHA8399 

DHA8350 
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c 


c 

c 


MAS  PERFORMED 

*so  soelz=zcnth-t(jmax) 

IF  ILOTAN.LT.l.E-101 
SUELA=SOtLZ/COTAN 
IF  (SoELX.GT.RXCIGM 


GO  TO  730 
GO  TO  730 


IwO=lG-l 

MO  IF  (SOELX.GT.RX(IOOI)  GO  TO  *70 
lOO-IuO-l 

IF  llUU.GT.0i  GO  TO  MO 
1TR=1RSTHT 
GO  TO  6*0 
*70  I  THSloOMRSIRT 
MO  JfH-OMAX 

ZTK-TI JMAXl 

XTH=11K*1*1MAX*CJTR-II 
UETAAIlTRt  =  BETAAUTRI  ♦  OT 
GO  TO  bUO 

*90  IF  CZoNTR.GT.TCOl I  GO  TO  700 

CENTtH°J3HAT  IS  INSIOE  STSTEM  AND  AH  UPGARD  TRACE  BAS  rtRF OR*CD 
-  INITIALIZE  FOR  OOBNCCARO  1  RACE 
700  00  72u  JSI# JHAX 
J*=JHAX«I-J 

IF  C2C.NTR.GT.TCJB-1I1  GO  TO  710 
VO  TO  720 
710  i.TR=ZLNTR 


XTR=0. 
ITRS1HSTRT 
JlK=UO 
GO  TO  S00 
720  CONTINUE 
S1=5.U16U 
GO  TO  9Sb 


TRACt  OF  A  RAT  IS  CONPEETE 
(EXCEPT  THETASO  TRACE I 


0RA83S2 

DRA8353 

CHABSSO 

DHA835S 

DRA8356 

DHA8357 

ORA83S8 

DRA8359 

DRA8360 

DRA8361 

0RA8362 

DRAS363 

DRA8360 

0HAS365 

DHA8366 

DRA8368 

DRA8369 

ORA8370 


ORA8372 
DRAS373 
DRA837* 
ORA837b 
ORA837* 
ORAS377 
ORA837S 
DRA8379 
ORA83BO 
DRA838J 
ORA 8382 


MERGE  STARTING  SEGMENTS  IF  IN  SAME  CCU. 

730  IF  CRaAC I 1  .LC.O.  AND.XJCAC20II *LE«0)  *0  TO  *90 

IF  iRXAUI.EO.RAAcaoUl  GO  TO  TOO 

OHA838* 
ORAS387 
DMAS 388 

I0NMNS291 

0HAS389 

GO  TO  7  SO 

DRA8390 

700  IDNMIU202 

DRAS39I 

X0(ll=XB(l)*XB(20l> 

CONTRIBUTE  TO  SUMMEO  PATH  LENGTHS  FOR  EACH  CELL 

0RAS393 

750  Li=» 

DRA8390 

L2SIUPUP 

DRAS39S 

L3=I 

ORA839* 

IUPSIUP-1 

0RA8397 

7*0  DO  770  II=L1«L2 

0RA8398 

KSKXACIII 

770  XALP(R>  S  XALPIKI  ♦  X9Clll»«T 

DRABOOO 

GO  TO  i 7*0*7901*  L* 

I 
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7*0  IF  (IUNMN.6T.1UPI  00  TO  790 

0KA8401 

L1=IUHMN 

DHA8402 

(.2=1  UP 

DMA6603 

L3=2 

DNX8404 

60  To  760 

C  TURN  The  upmamu  uat*  ahouno 

0HA8405 

790  lUPMr IUPUP/2 

UHA8407 

IF  (lUPM.Lt.O)  00  TO  010 

UK A 84  08 

DO  000  1  =  1*  2UPM 

UKA8409 

10=lUPUP*l-l 

0NA8410 

KX1=KAAI 11 

0KA8411 

XX2=X0(II 

DKA8412 

KXA(1)=KXA(1BI 

DKA8413 

XddUXBdBI 

DKA8414 

KAA(lt»»=KXl 

DHA8415 

•69  Xd(lbl=XX2 

DHA8416 

810  IF  ( 1UPUP.LT . 1 .  ANO. 1UP.LT . 10NMN1  00  TO  890 

DKA8417 

IF  dUP.LT.IONMNI  60  TO  830 

C  MOVE  UO«N»ARU  DATA  SNUG  NtXT  TO  UPWARD  DATA 

0KA8418 

UO  82lv  I=IUNMNt  1UP 

DKA8420 

lN»=f;' /PUP+1- 10NMN+1 

0MA8621 

KXAd«6)=KXAdl 

0HA8622 

820  XUdh«l=XBdl 

0MA8423 

112=  UPUP+ 1 UP- I ONMNF 1 

DHA8426 

1  TOT '112 

0MA8425 

IF  ( IUPUP.LT . 1)  NTEMS3 

0KA8626 

60  TO  860 

DRA8427 

810  II2=IUPUP 

IF  (ZCNlR  »LT.  doll  NX1T  =1 

0MA8428 

IT0T-1UPUP 
•60  NPOlNI  =  1 

60  TO  23b9 

C  OCBUO  L01T 

•80  IF  ( ABS ( UB6PRT 1  .LI.  1.E-20I  60  TO  890 
■MlTUb.970ILMU.lRU.lZMAY.NTERtNXlT.HT 

0RA8630 

HM1TE  (6.9801  IKXAdl.XBdl.Isl.ll2l 

DRA8653 

•90  CONTINUE 

C  CNU  OF  RAY  LOOP 

DMA86S6 

900  CONTINUE 

C  CNU  OF  COMB  LOOP 
■RITt  (6.90011  UTOT 

DRA86S5 

910  CONTINUE 

C  END  OF  GK1U  LOOP 

C 

C  T  K  E  T  A  :  0  TRACE 

C 

2369  *TP  =  SMU  •  O.b 

■RITE  16.90071  SMU 

00  29sl  Jsi.JMAX 

XIIIUI  s  UYIUI 

KXMU)  S  l  ♦  1MAX  •  (J-ll 

C  1  SO  IN  ABOVE  STATEMENT 

UO  23b0  1S1.1MAX 
did*  1MAX  •  (d-ll 

HT  S  «TP  •  TAUdl 

DRf.8456 
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C  NOTE  —  F  INAL  SUM  OK  LENGIHS  FOR  REFLECTING  AND  NONREFLECT I  X#  CAM 
C  SHOULD  bE  EUUAL  IN  ACCORDANCE  NITH  NO.  OF  PASSES  IN  TRAN2 

2350  XALP(K)  =  XALP(K)  ♦  XB(U)»NT 

2351  CONTINUE 

IF  (bCATAG.LT.O.)  GO  TO  2352 
IF  (BtBTAG.LT.O.)  GO  TO  2354 
C  NO  REFLECTION 
I  TOT  =  UMAX 
NTER  =  1 
NXIT  =.  3 
00  2330  Irl.IMAX 
NT  r  »TP  •  TAUtI) 

UETAAIII  r  UETAA(I)  ♦  NT 

2330  BETABd)  =  BETABd)  ♦  NT 
GO  TO  2357 

C  TOP  REFLECTING 

2352  I END  r  UMAX  -  1 

Xb (UMAX )  =  Xb(UMAX)  ♦  Xb(UMAX) 

UO  2353  Url.IENU 
XB(UMAX+U)  =  XB(UMAX-U) 

2353  KXA(UMAXFU)  =  KXAtUMAX-U) 

I  TOT  =  UMAX  ♦  I END 

NTER  =  1 
NXIT  r  -1 
UO  2331  Irl.IMAX 
NT  =  nTP  *  TaU(I) 

2331  BLTAU(I)  S  BETAB(I)  ♦  NT  •  2. 

GO  TO  2357 

C  BOTTOM  REFLECTING 

2354  I END  =  UMAX  -  1 
DO  2355  Url.IENU 
XU( JMAX+U)  =  XB(UFl) 

2355  KXA(UMAXFU)  =  KXAlU+l) 

XB(JMAX)  =  XB(1>  ♦  XB(1I 
KXA (UMAX  I  S  1 

C  I=U  IN  ABOVE  STATEMENT 
UO  235b  Url.IENU 
XB(JMAX-U)  r  XB(JmAxfU) 

235b  KXAUMAX-u.  S  KXA(JMAXFU) 

ITOT  r  UMAX  ♦  1EN0 
NTER  r  3 
NXIT  =  -1 
UO  2332  Irl.IMAX 
NT  r  nTP  •  TAUU) 

2332  BETAA(I)  r  BETAA(I)  ♦  NT  •  2. 

2357  112  r  ITOT 

C  COMPUTE  KXA(I)  AND  PACK  HAT  OATA  FOR  ITH  COMB  (WHICH  CONTAINS  ONLY 
C  ONE  RATI  IN  THE  THCTArO  CASE 
IM  =  0 

2370  IM  r  IM  F  1 

00  2358  UrldTOT 

2358  KXA(U)  r  KXA(U)  ♦  1 
NT  r  NTP  •  TAU(IM) 

NPOINT  r  2 

GO  TO  2359 
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C  »£U  Eull 

911  IF  (AUS(DBbPHT>.LT.I.E-20>  60  TO  912 
WHITE  (6,9006)  IM,NTEH,NXIT,WT 
WHITE  (6,960)  (KXACI),Xb(I>, 1=1,112) 

912  IF  (IM.LT.IMAX)  60  TO  2370 

WHITE  (6,9001)  11T0T 

C  WHITE  ENU  RECOHD  ON  UATA  TAPE 
NEH( IbWO+1 )=1 
NEH(IbWU+2)=l 
NEH(lbWU+3)=l 
EH(lGWU+9>  =  -10. 

NEH(IbWU+S>  s  -10 
EH(IbwO+b>  =  -10. 

NEH(2)=NHGP+1 
IbwO  =  IGwO  ♦  6 
NEK(l)=lbnO 

WHITE  (3)  (ER(I),1=1,I6WU> 

ENO  FILE  3 
REWIND  3 

C  CALCULATE  EFFECTIVE  AREAS  (XALP) 

IWARN=1 

UO  960  K-2.KMAX 

I=M0U(K-2,IMAX>+1 

U=(K-2)/lMAX+l 

IF  (XALP(K).LT.l.E-lO)  60  TO  920 
XALP(K)  =  TAU(I)  *  UT (J)  *  2.  •  PI/XALP(K> 

C  S  EFFECTIVE  AHEA  OF  CELL  K 

C  s  9*PI*V0LUMC  OF  CELL  /  SUM (LENGTH  •  WE16HT  OF  RAT) 

C  NOTE  —  XALP  WAS  HALF  THE  SUM  OF  LENGTHS  SINCE  EACH  RAT  TRACE  IN 
C  OHAW  ACCOUNTS  FOH  TWO  HATS  TN  SYSTEM 
60  TO  9bU 
920  XALP(K):l.E20 

60  TO  (930,990),  (WARN 
930  IwAHN-2 

WHITE  (6,10S0) 

990  WHITE  (6,9001  K 
900  CONTINUE 

C  FINIALUE  AH 1 ABLE:  ANO  PRINT  DEBU6  IF. CALLED  FOR 
REAO(t)  F10UT,P,U,V 
HEWINU  9 

IF  (AU*(DBGPRT)  .LT.  l.E-20)  60  TO  90S 
WHITE  l>6,990) 

WHITE  (6,1000)  (XALP(K) ,K=2»KMAX> 

90S  CONTINUE 
RETURN 

006  SI  =  b.llll 
900  I SENG  S2 

READ (9)  FIOUT,P,U,V 
HEWINO  9 
CALL  E01T 
C 

C  PACK  RAT  OATA 
C 

2909  NWO  s  112  ♦  112  ♦  9 
IITOT  s  11T0T  ♦  ITOT 


ORA69S0 

DNAB459 

OKAS960 


0KA0963 

ORA0965 

0HA0967 

ORA0966 

ORA0970 

0RA6971 

0KAS972 

0KA0973 

0RA0979 


0RA0976 

0HA9977 

0HA8979 

ORA0900 

0HA0901 

DKA0902 


DRA0907 

DRA0900 

0RA0999 
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IF  (loVO  ♦  NoD  .61.  1023)  60  TO  970 

•50  NERUGXUM)  =  lTOT 
NLHUgWU*2)=HTEH 
NER(IgWU*3)=NXIT 
EH(IGkU«X)  =  VT 
UO  bon  1=1.112 
1TVD  =  1GMD  ♦  I  ♦  I  ♦  3 
NEH ( I 1 WD) =KXA( I ) 

060  EH  (  I TkU*l  )=XB1 1) 

16*D=1GV0«NV0 
NHGPsNRGPxl 
60  TO  006 
070  NER(l)=lGWD 
l(EH(2)=NH6P 

•KITE  (31  (ER ( I I . 1=1.16*0) 

16»0=2 
NRG  P=U 
60  TO  060 

006  60  TO  (000*611).  NP01NT 

C 


OR  A  OX  36 
DRA0X35 
OH  A  OX  36 

DHA0X37 

DHA0X39 

DRAOXXO 

DRA0XX1 

DRA0XX2 

DRA0XX5 

DRAOXXO 

DRAOXXO 

DRAOXXO 

DRA0X90 


DRAOXXO 

900  FORRAT  (CE12.5) 

970  FORMAT  (/OH  MU  =  .FlO.X.OX.OH  R  INOEX. I6.0X.0H  2  1N0CX. I5.0X.XH  BC 
1  ENTER. 16. OX. OH  BC  EXIT. 15. XX. 3M  V>.1PE12.6> 

900  FORMAT  (0(16. IRE 15.0))  DRA0900 

990  FORMAT  (0H1AHEAS)  0RA0901 

1000  FORMAT  (1P0E16.0)  0RA0902 

1010  FOHMA (  (60H1CENSUS  OF  HAY5  CR066IN6  THE  OUTER  SYSTEM  BOUNDARY) 

1020  FORMAT  (X0H1CEN6U6  OF  HATS  CROSS 1N6  THE  TOP  SYSTEM  BOUNOARY) 

1030  FORMAT  (61H1CEKSUS  OF  RATS  CROSSIN*  THE  BOTTOM  SYSTEM  BOUNDARY) 

10X0  FORMAT  (1X0//16H6R1D  INPUT  FOR  .12>2XH  GRIDS  ANO  SEGMENT  COUNT/) 

1060  FORMAT  (X2H  WARNING,  NO  RATS  »0  THROUGH  THESE  ZONES  )  0RABB07 

1000  FORMAT  (1H  >9X«XHMU=  .1PE12.S.13H  DEET MU*  .E12.9.10H  DZlS 

1.E12.6.10H  DR1=  . E12.6) 

1070  FORMAT  (33H  TOTAL  CH0SS1N6S  FOR  OUTER  S.F10.2) 

lOflO  FORMAT  (3XH  TOTAL  CROSSINGS  FOR  BOTTOM  a.FlO.2) 

1090  FORMAT  (32H1T0TAL  NUMBER  OF  RAYS  EMPLOYEO  S.F10.2) 

1100  FORMAT  (31H  TOTAL  CROSSINGS  FOR  TOP  S.F10.2) 

9001  FORMAT  I1H  .SX.XThAFTEH  COMPLETION  0 V  ABOVE  BRIO.  TOTAL  SC«MENTS=, 


•110//) 

9003  FORMAT  (IHO.IOX.OHCLAMDAs  .F12.2) 

900X  FORMAT  (1H0.10X.9MATMETATI )/(lP7£19.9) ) 

9006  FORMAT  (1H0* 10X.9HMTHETA ( I )/ (1P7E19.9) ) 

900*  FORMAT  (1H0.10X.9HBTHCTA(1)/(1P7E16.9)) 

9007  FORMAT  (1H  .9X.BHMU*  1 . . 13X . BHOELTMU*  >E12.S) 

900B  FORMAT  (/12H  MU  «  1..7X.7HR  INDEX. IS.TX. 12HZ  INDEX  -1.6X.9M 

ibc  enter. is. ox. *h  uc  exit.is.xx.sh  vt.ipeix.ii 
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Subroutine  TRAN2 


c 

c 

c 


c 

c 

c 


thans:  tAniooo 

SUBROUTINE  TRAN2  TKN1001 

COMPILED  IbNOVbb. WbL  29SEPTG7.PRW 


H  E 

C  T  I  C 

COM 

MON 

COMMON 

AHN. 

AMBIEN. 

ANN. 

atom. 

bcatag. 

bcbtag. 

BCLTAG. 

lBCHTAU. 

CAPIN. 

CAPS. 

CDUT . 

CMXK. 

cmxom. 

cnde. 

CO. 

2C0E. 

CSTOP. 

CV* 

CTCLE. 

DBGPRT. 

DGHET. 

ohnu. 

diantp. 

30M1N. 

DNN. 

DT. 

DTBUGR. 

DTC. 

DTH. 

DTNA. 

OTQ. 

407R» 

DTR1 . 

DTR2. 

UTUF. 

OTVF . 

DUMPT7. 

ECK. 

EFRAC. 

SE11. 

ERRCRT. 

ElH. 

EZERO. 

FDTC. 

FFA  • 

FFB. 

FIFT. 

bFUDGE . 

C-V. 

HCB. 

HCP. 

HH> 

HNU. 

HNUP. 

HNUS. 

7HVB. 

I. 

IC> 

IGOTO. 

IH. 

ihnu. 

IMAX. 

ImPTAG. 

B1SEND. 

1SR. 

ITAG. 

ITRMAX. 

IU. 

IV. 

11. 

12. 

9J. 

JC. 

JH» 

JMAX. 

JMAXA. 

JU. 

JV. 

JS 

COMMON 

K. 

KMAXA. 

KMN1. 

KMN2. . 

KP. 

L. 

M. 

1MEHGE . 

MFTAG. 

MZ» 

Up 

NC» 

NHNU. 

NK. 

NPC. 

2NK. 

NHM. 

NT. 

NT APE. 

NT. 

Nl> 

N2. 

N3. 

3N4. 

OODC. 

PAUOVE. 

PBLO. 

PI. 

PIDTS. 

PRINTL. 

PRINTS. 

4PR0B . 

PHR. 

PS. 

HADE. 

RC» 

HFT. 

rptag. 

RR. 

SSCDR. 

SCR. 

SCRE. 

SCTCLE. 

SGNL. 

S1G, 

SIGH. 

slug. 

bSN. 

SPROB. 

svmax. 

SVS. 

SI. 

S2> 

S3. 

S4. 

7SS. 

T. 

TAUUTS. 

THICK. 

TMAX. 

trad. 

URH. 

UT. 

dUU. 

UVMAX. 

V ABOVE. 

VAPE. 

VBLO. 

VEL, 

VS. 

MSA. 

9X MAX. 

BLANK (49) 

COMMON 

A1X(1200)  . 

AMX( 1200) • 

ALAMHU200). 

lALAr*V  ( 1200) » 

B(lEOU) . 

CAP( 1200) . 

ER (1200) 

P 

2FI0UT (1200) . 

KF1T (1200) . 

P(1200>. 

SMLQ (1200) . 

JTHETA(1200). 

U( 1200) . 

V (1200) . 

XALP (1200) . 

4XB(12U0) . 

SOLID (400) • 

PL(200) . 

Y(101). 

SDT(IOU). 

GAMC(IOO). 

TAMCdOO). 

ULdOO). 

bM2(100>. 

X (S3) » 

0X(b2> . 

TAU(52). 

7UETAB(bO). 

TEMP (12) 

P 

HEAD (12) 

DIMENSION  FLEFT ( 1UOI »  PR(lOO).  SIGCdOO) 

EQUIVALENCE  (FLEFT. ULi  .  (PL. PR) 

EwUlVALENCE  (PL(101 )  »SIGC ) 

EQUIVALENCE  (S2U. BLANK (12) I .  (ZP12b.BLANK(13) ) .  (ZP136.BLaNK(14) > , 
1 (KMX t BLANK ( 15) )  •  (  VT .BLANK (lb) ) . (ANUMBR. BLANK) 19) ) . (LOCZ. BLANK (22) ) 
2. (H. BLANK (2S) ) » (NA .BLANK (26) ) 

EQUIVALENCE  (UACC.BLANK«»7)  > .  ( S ACC. BLANK («S) ) .  1TACC. BLANK 09) ) 


TRN100J 

TRN100H 

TRN1005 

TRNlOOb 


HECC0M22 

HLCC0M2J 

HECC0M2* 

HECC0M25 

HECC0M26 

HECC0M27 

HECC0M2S 

TRN1034 

THN1035 

THN1036 

THN1037 


HEAL  MERGE 


DIMENSION  PUR ( SO ) .  PUZdOO).  RUR(SO).  RUZdOO) 
DIMENSION  OLDTH  d ) . PLANCK  d ) • ROSS ( 1 ) . X A (1 ) 
OIMENSION  KXA(l) 

DIMENSION  KXB(l) 

EQUIVALENCE  (OLUTh.FIOUT) . (PLANCK. P) • (ROSS.U) . 

1  (KXA.XA.V) * (KXB.XB) 

COMMON  /BLACK/  BETAR (50) .SETAA(bO) 


TRN1041 

TRN1042 

THN1043 

TNN1044 

TRNI045 

TRN1047 

TRN104S 

TRN1050 
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DIMENSION  PA(50)fPRl(50> tPb(bO) 

COMMON  /RADUAT/  ClAMOA > A THtTA < 50 ) iRTHETA ( 50 > .BTMETA ( 50) 
ATMETA»k1HETA»BTHETa  CONTAIN  BOUNDARY  TEMPERATURES  (IN  EV)  FOR 
ABOVE. NIGHT* AND  BOTTOM  BOUNDARIES  RESPECTIVELY 


THE 


XALP.  ALAMV.  ALAMH*  AND  BETAB  INVIOLATE  —  FORMED  IN 

DRAW 

TRN1052 

NY (IN  LINDLEY  COMMON)  IS  TEMPERATURE  ITERATION  INDEX 

USED 

IN  KAPPATRN10S3 

F00=0.0 

TRN1054 

ETOPSU.O 

TRN10S5 

ES10E-0.0 

TRN10S6 

EB1MSU.0 

TRN1057 

KMAX=nMAXA-I 

TRN1056 

IF  (MFTA6.EQ.0i  UHNU=1. 

TRN10S9 

NVE2=I 

THU 1060 

NY=NVL2 

TRN1061 

IF  (ITA6.EQ.0i  NVE2=2 

TRN1062 

VEZ=NVE2 

TRN1063 

CALL  DVCHK  (HOMY) 

TRN1064 

THTAMXS.02S 

TRN1065 

CALCULATE  6E0METRY  FACTORS  AND  FIND  HI6HEST  TEMPERATURE 

TRN1066 

DO  10  UlflMAX 

TRN1067 

PUR ( I ) =PI/TAU( I ) 

TRN106B 

KUR(I+1)=4.0E10»X(I)/(X(I+1>-X(I-1) ) 

THN1069 

DO  20  J=1.JMAX 

TRN1070 

PU2(J)S1./UY(J) 

TRN1071 

RUZ(J+1)=2.0E10/(YU+1>-Y(J-1>> 

THN1072 

DO  30  K=2.KMAX 

TRN1073 

IF  UHK(KFIT{K).2).N£.ll  60  TO  30 

TRN1074 

IF  (THETA(K).LT.THTAMX)  60  TO  30 

TRN107S 

THTAMX=THETA(K> 

TRN1076 

CONTINUE 

TRN1077 

THTAMX=AMAX1 ( THTAMX . BCLTA6 • BCRTA6 , BCBTA6 • BCATA6 ) 

THN1070 

reenthy  point  for  second  temperature  iteration 

• 

TRN1079 

DO  SO  K=2.KMAX 

TRN1060 

XA(K)=Q. 

THN1081 

XB(K)=0. 

TRN1082 

EH(K)=0.0 

TRN10B3 

TRN1084 

TRN10BS 

***** 

••••••••TRN1086 

•TRN1087 

DO  FREQUENCY  BOOKKEEPI 

N  6 

♦TRN1088 

•TRN1009 

***** 

••••••••TRN1090 

TRN1091 

SET  UP  MAX  FREQ  BOUNOARY 

TRN1092 

TRN1093 

HNUP=1.0E6 

TRN1094 

MNUPH-1 • 0E24 

TRN1095 

IF  (MFTA6.EQ.0)  60  TO  100 

TRN1096 

IMNUslHNUFl 

TRN1097 

CALL  KAPPA 

TRN1090 

HNU4=HNU*«4 

TRN1099 

OHNUSHNUP-HNU 

THNI100 
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MtHGt  GROUPS  WITH  HNU  MORE  THAN  (MERGE)  TIMES  LARGEST  THETA 

TRN1102 

TRN1103 

IF  (MlRGE.GT.O.O)  GO  TO  70 

1104 

S1-7.022S 

GO  TO  9t>S 

TRN1105 

70 

IF  (THTAMX-HNU/MErGEI  100<80.80 

TRN1107 

•0 

IF  (1HNU-1I  90.210<120 

U.U108 

90 

S1S7.029S 

GO  TO  90S 

TRN1109 

TRN1111 

REJECT  TAPE  IF  MORE  THAN  HALF  OF  GROUPS  MERGE 

TRN1112 

TRN1113 

100 

IF  C 1 HNU+ 1 HNU-NHNU l  120.110.110 

TRN1114 

iiO 

QSAMOU ( MERGE » 1  •  I 

TRN1115 

IF  (U.GT,0.4.ANU.G.LT.0.6>  GO  TO  120 

TRN1116 

S1S7.02S0 

GO  TO  96b 

TRN1117 

120 

00  130  K=2.KMAX 

TRN1119 

IF  (JMR(KFlT(KI>2>tNE.ll  GO  TO  130 

TRN1120 

T4STHc1A(K)**4 

TRN1121 

BETASHNU/THETAIK) 

TRN1122 

UETAP=HNUP/THETA  (M 

TRN1123 

OFBXPLNKUT ( BETA.BETAP) 

TRN1124 

IF  (UFb.LT.l.E-101  GO  TO  130 

TRN1125 

TEMPI 1IS0FB*T4 

TRN1126 

EMblSEXPI-BETA) 

TRN1127 

EMB2SEXPI-BL1AP) 

TRN1128 

TEMP 1 2  J  =DFB*0 . 0384974/T4* I HNU4/ 1 1 .0-EMB1 I *EMB1-HNUP4/ 1 1 . 0-EMB2) *EMTHN1 129 

1B2I 

TRN1130 

TRN1131 

FORM  NUMERATORS  ANO  DENOMINATORS  OF  MERGED  KAPPAS 

TRN1132 

TRN1133 

XAIK)=XA(Kl*TEMP(ll 

TRN1134 

XUIKI=XB(KI*TEMP(2)> 

TRN1135 

BIKISBIKI«PLANCKIKI*TEMPI1> 

TRN1136 

EH(KI=ER(KWEMP(2l/R0S5IKI 

TRN1137 

190 

continue 

TRN1138 

HNUPSHNU 

TRN1139 

HNUPH-HNU4 

TRN1140 

IF  (THTAMX-HNU/MERGEI  60. 140. 140 

TRN1141 

TRN1I42 

FORM  MERGED  KAPPAS 

TRN.U43 

TRN1144 

140 

DO  170  KS2.KMAX 

TRN1145 

IF  (XAIKII  150.170.160 

TRN1146 

150 

Sl=7,0320 

GO  TO  965 

TKN1147 

160 

ROSSIK)sXB(K)/ER(K> 

TRN1149 

PLANCK (K)=B(K)/XA(K I 

TRNllSO 

EHIKirO. 

TRN1151 

170 

CONTINUE 

TRN1152 

HNUPS1.0E6 

TRN1153 

HNUP4S1.0E24 

TRN1154 

OHNUSHNUP-HNU 

TRN1155 

GO  TO  290 

TRN1156 
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c 

c  monofheouency  calculation 

c 

ISO  NHNU=1 
IHNUsl 

UO  190  K=2>KMAX 

IF  ldMHIKFITlK>#2I.NE.ll  60  TO  190 

BIK)  =  J.27J2E+U  •  THETAIKI9THETAIK)*THETAIKI*THETA|K> 

C  3.2732E+U  =  I .0203E+12/PI  =  STEFANS  CONSTANT  tEVl/Pl 

C  U  =  S/19»PI«H0SS> 

190  CONTINUE 
HNU=.001 
60  TO  230 
c 

c 

C  UE6IN  FKEQUENCT  LOOP 

C 

200  IHNUSIHNU*! 

CALL  KAPPA 

uhnu=hnup-hnu 

HNU9=HNU**9 

c 

C  TYPICAL  6R0UP  CALCULATION  OF  SOURCES 

c 

210  UO  220  K32.KMAX 

IF  (dMHIKFlTlKI.2l.NE. I)  60  TO  220 
0FB3PLNKUT (HNU/THET A  IK  1 • HNUP/THET A IK » 1 

UIK)  =  UFB  •  3.2732EMI  •  THETA  IK)»THCTA(K)»THETA  IK  1  •THETA  <KI 
220  CONTINUE 
C 

C  SET  BLACKUOUY  CONDITIONS 

C 

230  IF  IBCATAG  .LT.  l.E-20)  60  TO  290 

UO  23S  I=ltlHAX. 

IF  I ATHETAI I )  .8T.  1.E-S1  60  TO  239 
PAID  =  0. 

60  TO  235 

239  PAID  3  PLNKUT (HNU/ATHET A II I .HNUP/ATHETAII1 J 

PAID  =  PAI II9TAUI I l/BETAA 1 1 >»1 .0283E12  •  ATHET A 1 1 ) • ATHETA 1 1 » 
I  •  ATHETAID9ATHETAII) 

235  CONTINUE 

290  IF  IbCHTAG  .LT.  I.E-20)  60  TO  250 
00  295  d=I»dMAX 

IF  INTHETA <d>  .8T.  I.E-Sl  80  TO  299 
PNI I Jl  *  0. 

60  TO  295 

299  PHIIdl  -  PLNKUT IHNU/RTHETA Id! »HNUP/RTHETA|dJ t 

PRIIdl  3  PRI (d) »PI*2.*X I IMAX) *0Y (dl /BETARIdl  •  1.0263EI2 
1  •  HTHtTAIdl»HTHETAIdl*HTMETAldl»NTHETAId» 

295  CONTINUE 

250  IF  IBCBTA6  .LT.  l.E-20 I  60  TO  270 
DO  255  131. IMAX 

IF  IBTHETA II)  .ST.  l.E-SI  SO  TO  259 
PBI I I  3  0. 


TNN1157 

TNN1I5S 

TNNI159 

THNII60 

TNNI16I 

TRN1I62 

TNNII63 


TKN1165 

THNllSf) 

THNII67 

'•THNII6B 

•TRNI169 

•THNI170 

•TNNI171 

•TNN1I72 

TNNII73 

TNNII79 

THN1175 

TNNII76 

THNII77 

TKN117S 

TRNIlY’' 

TRN11S0 

THN11S1 

TRN11S2 

TAN 1199 

TRNUS5 

TRN11SS 

TRN11S7 


AFWL-TR -67-131,  Vol  II 


GO  TO  2bb 

m  Pd(ll  =  PLNKUT  (HNU/GTHETA( I ) iHNUP/BTHETA( II I 

FbiJl  s  PB(II*TAU(ll/BETAB(II«l.02a3E12  *  BTHETA(II*BTHETA(I) 

4  •  BTHETA(1)*BTHETA(II 

aw  C0NT1I.UE 
2TB  CALL  OVCHK  (KOMTI 

GO  TO  (200 . 290 1*  KOMT 
200  $1*7.0522 
GO  To  9Gb 

c  FOAM  HOSSELAND  AND  PLANCK  OPTICAL  DEPTHS 

C  DOUBLE  OH  STORAGE  FOR  ABSORPTION  COEFFICIENTS#  MU#  AND  LAMiDA 
200  UO  SUV  I*1#IMAX 
•2(1)80# 

M»R«|MA4 
UO  20V  J*J#JmA4 
FACfuM*0 9 

IF  I AOSIHPl AO) <01 « I #L-2V)  MCTORWOSSIKI/PlAWCMM 
RtfSSl#*)*ANAAI(ROSS(K)*ANAIK)/(TAU(  1I*DT  4<J>  >»  l»t-E0{ . 

PLANCK  I K I  *  AMAAH  PLANCK  ( K )  *F  ACT  OR*  AMX  ( R I  /  ( T  AU  a  I  *OT  Ul  I  #  1 .  t“20 1 

C  USE  ONLT  ROSS  FOR  NON#  ALARM  AND  ALAMV  USED  FOR  RAT  COUNT 
C  USING  PLANCK  AS  ENERGT  FLU*  STORAGE  IN  RAT  LOOP  FOR  DEBUG  AND  02 
MSN* IMA* 

RSK*|MAA 

200  CONTINUE  . 


TNN120S 

THN1206 

THNX207 

TKNI2C9 

TKNU'IO 

TRNI2U 

TKN12I2 

TKNI213 

TRN12I4 

THHI2J& 

IKUitiV 

man 

TNNI21H 

TRNI2I9 


THN1222 

ETNN1223 

TKN1224 

TRNI22S 

TNN1226 


TOO-UlMENSIONAL  transport  SECTIO 


>**TRN1227 

•THNI226 

N*TKN1229 

•TRNI230 

i«*TRnI23I 


UO  201#  J*1#JMAX 
00  90b  1*1# IMA* 

K  c  I  *  1  *  IMA** 4 J— II 
ALAMV (K)  s  0. 

IF  (  CL AMUA/ROSS ( R I  #LT.  AMlNl(0T(d) »0*( 1 1 1  .AND. 

1  (  JMR(RF1T(RI. 2l.L0.il  I  ALAMV(R)*1. 

SOS  CONTINUE 
306  CONTlNOt 

C  ALAMV(K)*1.  implies  cell  r  is  opticallt  thick  and  active 

MEVINU  3 

C  RXU*  Ab  is  -buffer-  storage 

C  RXA.  XA  USEU  FOR  BOTH  CELL  INOEX  AND  PATH  LENOTH(TRAN2  ONLTI 


THN1232 

THN1233 

TKN1234 


RAT-TAPE  RECORD  LOOP  (N0RP  RATS) 


310  READ  (31  NGMD.(XB(l)#I82.N6MD) 
NGRPSRXB (2 1 
lGVO-2 

IF  ( IAMS(NGRPI .LE.210)  GO  TO  320 
S1*7.US41 
GO  TO  90S 
C 

C  RAT  LOOP 


TRN1236 

TRN1237 

THN1238 

TRN1239 
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320  00  820  lbRP=l.N6RP 
1I01=kXB»16IIU*1» 

NTtFsMb<lbVb*2> 

NAlf=KXU<lb*U*3l 
*T  =  xBClb*l>**» 

11  =  lbWU  *  * 
l>0  330  1=1  f  HOT 
KXA(1I=KXU<11*1> 

XXII  *b00)=XBCU*2l 
330  11=11*2 
16*0=1 1 

TEST  hOH  -ALL  RAYS  PROCESSED-  SIGNAL 
ir  C1IOT.C8.1.ANO.KXA11I.LT.O)  00  TO  #30 
BYPASS  IF  RAY  TRAVERSES  TOTALLY  INACTIVE  MUON 
tACTsl 

UO  3b 0  1  =  1 » 1  TOY 

If'^UmKIXFITCRTI. 2l.NC.il  00  TO  3*0 
1 ACT=2 

3bO  C0NT1NUL 

bO  TO  »720«350l»  1 ACT 

3b0  IF  CnTLR.GC.I.ANO.NTER.LE.31  *0  TO  3*0 
Sl=T.ObbO 
60  TO  965 
3b 0  KSTRT=KXA(1I 

APPLY  BOUNDARY  COnOITION  TO  START  TRACE  Of 
»0  TO  I3l0.b00.b20l*  NTER 
370  IF  (ULbYAOl  380.bb0.390 
380  Sl*7.Ubb6 
60  TO  965 

390  l=N0UlAbT«T-2.1NAXl*l 
Ad  =  PbCll  •  VY 
60  TO  b50 

*00  IF  IbCRTAbl  380.bb0.bl0 
*10  J=(XSTRT-J. ' / IHAX*1 
Ad  =  PR’ I J>  •  »T 
60  TO  *  0 

*20  IF  UlLAlAbl  J00>‘b0.b30 
*30  1  =  FoUlXil  *1*2*  IMAX1  ♦  1 

Ad  *  PAUI  •  *r 
60  TO  *bU 

c  "  0  BLblW  LOOP  OVtR  20RES  ''A '*51 
c  FOR  0tbU6  ONLY.  USE  PLANO  »1«»T  TOSTORt  AJ 
C  XALP  IS  EFFECTIVE  AREA  OF  '  U  IN  IONC 
*50  PLANCX(l)  *  Ad 
HOLD  *  1 

ALANVtKOLOl  ■  0.  _ tuiM 

C  OUTSIDE  OF  SYSTEN  IS  CONSIOEREO  OPTICALLT  THIN 

C  SEOMENT  LOOP 


THN12*1 

TRN12«2 

TRN12«3 

THN12** 


THN12N6 
TRN12«T 
TRN12*8 
TRn12*9 
TRN1250 
TRN1251 
JR  fi  1252 
TRN12S3 
THN125* 
TRN1255 
THN1E56 
TRN1257 
TRN1258 
TRN12S9 
THN1260 
TRN1261 
TRN1262 
TRN1253 

THN1265 
THN126* 
T  167 
TRN1288 
TRN1A89 
T  170 

TRN1272 

TRN1275 

TRN127* 

TRN1277 

TRN1200 

TRN1181 


TRN128S 

TMNim 

TKN1287 

TRN1IB8 

TRN1I89 
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00  SHU  IUY2I.IT0T 
GO  TO  IH90.500).  IT* ASS 
HVO  1IR2IUY 
00  TO  S1U 

S00  llK=l(0m-10Y 
S10  K2KXAI1TR) 

S20  IF  (ALAMV(KOLO>  .&T.  0.5)  GO  TO  S25 

c 

C  PREVIOUS  ZONE  HAS  THIN 
C 

IF  tALAMVIK)  .LI.  U.5)  GO  TO  526 
C  PRESENT  ZONE  IS  THICK 
ERIK)  =  EH(K)  ♦  AJ 
AJN  -  AJ 

IF  IIUY.LT.ITOT)  GO  TO  540 
AJN  =  1>IM«XALPIK)  *WT 
tK(KI  =  tH(K)  -  AJN 
GO  TO  53U 
C 

C  PREVIOUS  ZONE  HAS  THICK 
C 

525  IF  IalARVIK)  .LT.  U.5)  GO  TO  527 
C  PRESENT  ZONE  IS  THICK 

IF  (1UY  .LT.  ITOTI  GO  TO  529 
AJN  2  BIK)»XALPlK)»MT 
EH(K)  =  ER(K)  -  AJN 
GO  TO  530 

C  PRESENT  ZONE  IS  THIN 
527  AJ  2  oIKOLU)*XALP|KOL0I*HT 
EKIKOLU)  =  EKIKOLO)  -  AJ 

526  IF  IJMKtKFlTIK>.2>.EG.0>  GO  TO  529 
C  NORMAL  TRANSPORT  CALCULATION 

SIGS  2  ROSS I K ) *XA I ITR+HUO ) 

ESS  s  EXPI-SIGS) 

AJN  2  AJ  •  ESS  ♦  XALPIK)  •  OIK)  ♦  II. -ESS)  •  OT 
ERIK)  2  ERIK)  ♦  AJ  -  AJN 

C  LR  =  ERGS/SEC  XALP  =  EFFECTIVE  AREA 

GO  TO  530 

C  PRESENT  ZONE  IS  INACTIVE  OR  THICK 

529  AJN  2  AJ 

530  PLANCK  I lUTHl)  =  AJN 
KOLD  2  K 

C  MIFAPLANCK  DEBUG  IS  UESIREO  IT  SHOULD  BE  AOOED  HERE 
C  ON  SECOND  PASS  ORDER  OF  PLANCK  PRINT  MILL  BE  SAME  AS 
C  FINISH  SEGMENT  LOOP 
C  HANGE  ETH  BY  ENERGY  ENTERING  ANO  LEAVING  MESH 
550  FOO  2  FOO  ♦  I  PLANCK  (I)  -  PLANCK  UTOTHl) ) 

C  EVALUATE  CONTRIBUTION  TO  FLUX  ACROSS  TOP  BOUNDARY 

IF  IBCATAG.LT.O. )  60  TO  610 
IF  INTER. NE. 3)  GO  TO  580 
I2MOOIKXAI1)-2.IMAX)«1 
C  IN  ERGS/CM**2/SEC 

00  TO  1560.570) •  IPASS 
560  M2II)sM2l D-PLANCKI D/TAUII) 


TRN1297 

TRN1296 

TRN1299 

TRN1301 

TRN1302 

TRNIJOH 


TRNI3I7 


trace  direction 


TRNI322 

TRNI32H 

TRNI325 

TRNI326 

TRN1327 

TRN1329 
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60  To  660 

ST#  ■2(ll=»2lll*PLAtltMlT0T*ll/TAUlIl 
S00  IT  ('Ml1.Mt.3l  oo  >0  610 
1=M0UIKXA(1T0TI-2*1NAXI*1 
C  IN  Ek6b/CM**2/SE( 

60  TO  (590*6001 *  1PA.3S 
S90  02(11=02111  *PI.A«CK 1 1  TOT* ll/TAUd  I 
60  To  blO 

600  02(11 =62(  1  l-PLANClt  lll/TAUI I) 

610  60  TO  1620*7201  *  (PASS 

620  CONTIhUE 

630  KblKT  2KXAI ITOf I 

60  TO  (660*660*6001 •  NTLK 
660  LUlM=LUlM*l*LANCKIll 

60  To  o7u 

6S0  tslOL=LSlUt*PLANCKlll 
60  TO  6/0 

660  LT0Pil10P*PLAMCMH 

#70  IT  INX1T.OT.OI  60  TO  1680*690*7001*  NX1T 
60  TO  (600*6VO* 7001  *  IITEH 

C  TllLIASO  CA6L  ANU  KLT  LLC  ( ION  —  KAY  ENTERS  AND  EXITS  TMKU  BOTTOM 
600  Eu  I  M=LU  I H-PL  AIICK  (1107*11 
60  TO  710 

690  LSlUt=t5IUt-PLAMLKllT01*ll 
60  ll<  Mil 

TOO  nue-i.lur-H-nnt.nl  t  lull  II 

C  71IT*TMETA=0  ANU  HEFLECTIVE  UOUNOAKY*  ONLY  HAKE  ONE  PASS  ALONO  KAYS 
IF  (NXlT.LE.01  60  TO  800 
60  TO  (370*900*620 1*  NX1T 
c  BOTH  PASSES  COMPLETE  —  RETURN  POK  NEXT  KAY 
720  60  TO  1730*760*7601 .  NTEK 

730  EUTM  =  LBTM  -  PLANCK ( I TOT* 11 
60  TO  760 

780  ES10E  =  tSIUE  -  PLANCK  ( I T0TU1 
60  TO  760 

7S0  ETOP  =  STOP  -  PLANCK (1T0T*11 
760  60  TO  (770*700*7901*  NX1T 

770  EbTN  =  EBTM  ♦  PLANCK 111 
60  TO  800 

700  ES10E  =  LSIOE  ♦  PLANCK (11 
60  TO  800 

790  ETOP  =  ETOP  ♦  PLANCKI1I 
OOO  CALL  UVCHK  (KONTI 

60  TO  (010*6201*  KONY 
010  Sl=7.UOiO 
60  TO  9TS 
020  CONTIP*  i 

C  END  HAT  LOOP 
60  TO  310 


THN1331 

TKN1333 

TKN1SS6 

TKN1336 

TKN133B 

THN1360 

THN139S 

THN1366 

TKN1367 

THN136B 

THN1369 

TKN1SS0 

1351 


TMN1353 
THN1356 
THII13SS 
T  Mill  396 
IhlllABl 
THNlibt) 


TRN1359 

TRN1360 

TKN1361 

TKN1363 

TKN1365 

TKN136T 

TRN1S69 

TKN1371 

TKN1373 

TKN1376 

TRN137S 

TKN1377 

TRN1370 
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8/3PI=8. 37738  63769  THIS  EXPLICIT  DIFFUSION 


CALCULAT ION  IS  ONLY  VALIO  FOP  MONOFREQUENCY 
•30  DO  825  1=1. IN** 

RPP  =  1*1 
J  =  b 

AV  =  TAU(l)  •  8.37758 
AN  =  XII)  •  52.63769 
•21  K  =  RPP 

RHP  =  K  ♦  IMAX 
J  =  J  ♦  1 


.ASE 


IF  U.bT.UMAX)  60  TO  823 
IF  (ALAMVIR)  .LT.  U.5)  60  TO  621 

C  cell  r  is  Thick  and  active 

IF  (  (1.6E.IMAX)  .ON.  (ALAMV(RFl).LT.O.S)  >  60  TO  622 

c  CALCULATE  net  diffusion  in  horizontal  direction  between  cells  R.R+1 

UEMH  =  0Y(J)*(u(K)-8<R.l) )/(ROSS(R)*OX(l)  ♦  ROSS (R+I )*0X( 1+1 ) ) *AH 
ENIR)  =  ER (R)  -  DERM 
ERIR+1)  =  ERIR+1)  ♦  OCRH 

•22  IF  (  (U.6E.JMAX)  .ON. ( ALAMV(RPP) .LT.0.5)  )  60  TO  621 
C  CALCULATE  NET  DIFFUSION  IN  VERTICAL  DIRECTION  BETWEEN  CELLS  R.RPP 
UERV  *  (B(R)-a(KPP))  /  (ROSSIR I  *0Y ( J)  ♦  ROSS(RPP)  *0T(  J+l 1 1  •  AV 
ENIR)  =  ER(R)  -  DEMV 
EN (RPP)  =  ER(RPP)  ♦  OERV 
60  TO  821 
•23  CONTINUE 

C  FINISH  OF  ThICK-THICR  EXPLICIT  DIFFUSION  CALCULATION 

c 

c 


NEWINU  3 

HNUP=I(NU 

TNN1381 

HNUP9=IINU9 

TRN1382 

IF  (1KNU-NHNU)  200.850.890 

THN1383 

•90  51*7  « 1010 

TRNI389 

60  To  965 

•50  CONTINUE 

•70  WRITE  16.970)  NC 

TRN1390 

IF  1 AUS ( DB6PR  77  .LT.  l.E-20)  60  TO  000 

WRITE  (6.900)  (ENIR) >K=2.RPAX) 

TRN1391 

ESUM  :  0. 

UO  331  RS2.RMAX 
ESUM  S  ESUM  ♦  ENIR) 

ALAMVIR)  S  MIR)  •  8.  •  (  I  •  ROSSIR) 

331  ALAMHIR)=ER  IR)*ITAUII)*UT  I  J)  AROSSIR )  )+9.*PI«B(R) 

WRITE  (6.9010)  (ALANHIR)  »R=2.RMAX)  .ESUM 
WRITE  (6.9010)  (NOSSIR)  .R=2.RHAX) 

WRITE  16.9010)  (H(R).R=2.RMAX) 

WRITE  (6.9010)  (ALAMVIR) .RS2.RMAX) 

TRN1392 

ADVANCE  FRCO.  STORE  EMEROENT  FLUX.  TEST  FOR  COMPLETION  OF  CROUPS  TNN1393 

TRN1399 

**************************••*•••••*•*•••*•••••••••••••••••••♦•••♦ *TNN1 395 

•TNN1396 

END  FREOUENCT  LOOP  .TNN1397 

•TRN1390 

*******************•*•**•••••*••**••••••*•••••••••••••• •••••••••••TRN1 399 
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C  1 TERATL  ON  TEMPERATUHE 

aao  oo  to  («9o.9io>.  nvez 
a«o  nvez=2 
VEZ=NVEZ 
NT=NVEZ 
;:i'<u=o 

00  900  K=2.KMAX 

C  WORK.  SOURCE  TERMS  OMITTED 

IF  IJMH(KFIT(K)»2).NE.1>  60  TO  600 
OLUTHIK)STHEIA(K) 

C*AlX(K)FER(K>*OT/AMX(K> 

SV=TAO(I)*OY(J)/AMX(K> 

CALL  LS  (SV> t> TEMP ( 1) .TEMP (2) .GG) 
TH£TA(K>=0.S*(THETA(K>*TEMP(1>> 

900  CONTINUt 

IF  (MFTAb.EU.O)  CALL  KAPPA 
GO  TO  90 

910  IF  (ITAb.LQ.U)  GO  TO  930 
00  920  K=2»KMAX 
920  THETA(K)=oLOTH(K> 

C  H  A  N  >.  L  INTERNAL  ENERGIES 
990  TEMP(1>=1. 

00  940  K=2.KMAX 

IF  (JMH(KF1T(K).2).NE.1>  GO  TO  940 
0t=EH(K)*01/AMXU) 

G=SLUg*A1X(K> 

IMAOS(OL).LT.AUS(U)t  GO  TO  940 
FLMP ( l ) SAMlNl ( 0/ AOS  (OE  >  »  TEMP  (lit 
940  CONTINUE 

U(EMPsuT*TEMP(l) 

1M0TlMP.uT.FFU)  GO  TO  9S0 

WK1TL  (b.970)  NC 

■RITE  (6.9B0)  (EH(K).K=2.KMAX> 

WHITE  (6.990)  0£.K.A1X(K).AMX(K> 

sisr.iooa 

GO  TO  90S 
950  T=T-U1*0TEMP 
UTSOTEMP 
FOO=FOO*OT 
ETH  S  ETH  *  FOO 
OACC  s  BACC  ♦  EBTM*DT 
SACC  =  SACC  ♦  ESIDE*DT 
TACC  =  TACC  ♦  ETOP»DT 
C  FOO. ETH. OACC. SACC. TACC  ARE  I  Fi'rP 

WHITE  (6.1000)  NC.UT 
WRITE  (6.10101  BACC. SACC. TACC. FOO 
READ (4)  FIOUT.P.U.V 
HETliKN 

967  SI  =  7.1111 
965  REA0(4)  FIOUT.P.U.V 
I  SEND  =  2 
CALL  EDIT 
C 

970  FORMAT  ( 52H0 INTERNAL  ENERGY  GAIN  PER  UNIT  TIME  CUE  TO 
1  CYCLE  *15) 


TRN1400 

THN1401 

THN1402 

TRN1403 

THN1404 

THN1405 

TNN1406 

TRN1407 

TRN1408 

THN1409 

TRN1410 

THN1412 
TNN1413 
THN1414 
THN1415 
TRW 14 16 
TRN1417 
TRN141B 
TRN1419 
THN1420 
TRN1421 
TNN1422 
TNN1429 
TRN1424 
THN1425 

TNN1427 

TRN142B 


TRN1491 
TRN  92 
TRN149S 
TRN1494 


TRN1447 


TRN1451 


TRN1452 

RA01AT10N.SH 

TRN1454 


AFWL-TR -67-131,  Vol  II 


960  FORMAT  (1X'1P10E11.4) 

,*»<>  FORMA F  CiH  Ot  S1PEU.4.5H  K  =110, 6H  AIX  =EU.4,6H  AMX  =E11.4> 
1000  FORMAT  (19H0  FLU*  FOR  CYCLE  I4*7H  OT  slPElO.3) 

1010  FORMAT  C9H  BOTTOM  =1PEU.4,BH  S10E  =£11.4, 7H  TOP  =E11.4,7H  FOO 
1=E11.4> 

9010  FORMAT  I1H0/<1X’1P10E11.4> > 


END 


TRN14S5 

TRN1456 

TRN1457 

THN14S6 

THN1459 

TRN1460 
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SHORT 2  ROUTINES 

DRAW  Subroutine  Sequence 
Subroutine  DRAW 
Subroutine  INWARD 
Subroutine  OUTWRD 
Subroutine  DISTNC 
Function  JO(J ,  It  L,  M) 

Function  JB(J ,  It  L>i  M) 

Function  SINT(A1|  Bl,  EPS1,  FUNC) 

Function  IN(Z) 

Function  BOT(Z) 

Function  OUT(Z) 

Function  GAMMO(lG,  Z) 

Transport  Subroutine  Sequence 
Subroutine  TRAN2 

Function  TRANS(SIGMA,  D,  XA,  XB,  YA,  YB, 
C,  SUM,  IACT.SP) 

Function  S(XX,  YY) 

Function  SRC(KKK) 

Subroutine  BOTBND 
Subroutine  OUTBND 
Subroutine  TOPBND 


237 


Subroutine  DRAW 
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